my %swapNodesNasServersListBefore;    # list of nas servers before swap
				   my %swapNodesNasServersListAfter;              # list of nas servers after swap

                if ($swapNodesVDMList eq 'All') {
                    foreach my $server (@nasServerObjs){
						my %serverProp = $server->getProperties();
						$self->logPropertyInfo( "Nas Server properties before swap:", \%serverProp );
						$swapNodesNasServersListBefore{$server} = \%serverProp;
                        $server->swapNodes();
						sleep(60);
                        %serverProp = $server->getProperties();
                        $self->logPropertyInfo( "Nas Server properties after swap:", \%serverProp );
                        $swapNodesNasServersListAfter{$server} = \%serverProp;

						#################
						my %serverPropBefore = %{ $swapNodesNasServersListBefore{$server} };
                            my %serverPropAfter = %{ $swapNodesNasServersListAfter{$server} };
									print("backup before:\n");
									print ($serverPropBefore{'name'});
									print("\n");
									print ($serverPropBefore{'backup_node'});
									print("\n");
									print ($serverPropAfter{'name'});
									print("\n");
									print("primary after:\n");
									print ($serverPropAfter{'primary_node'});
									print("\n");
									print ($serverPropAfter{'name'});
									print("\n");
									print("backup after:\n");
									print ($serverPropAfter{'backup_node'});
									print("\n");
									print ($serverPropBefore{'name'});
									print("\n");
									print("primary before:\n");
									print ($serverPropBefore{'primary_node'});
									print("\n");
									<STDIN>;
									##############