$hash{$ebiz_siebel_dns}{site}   = $ebiz_siebel_dns;
$hash{$ebiz_siebel_dns}{ip_now} = $ebiz_siebel_ip;
$hash{$ebiz_siebel_dns}{ip_new} = $ebiz_siebel;

for my $j ( keys(%hash) ){
   print "site -> $j\n"; # $j eq $hash{$j}{site}
   print "$j -> $hash{$j}{ip_now}\n";
   print "$j -> $hash{$j}{ip_new}\n";
}

##</code><code>##

my %sites = ( 'messenger.hotmail.com' =>
                 { ipnow => '207.46.104.20', type => 'A' },
              'www.siebel.com'        =>
                 { ipnow => '64.181.189.55', type => 'A' },
             );

foreach my $dns ( keys %sites )
{
    $sites{$dns}{ipnew} = nslookup( host => $dns,
                                    type => $sites{$dns}{type} );
}

foreach my $dns ( keys %sites )
{
    print "$dns\n";
    print "$dns -> $sites{$dns}{ipnow}\n";
    print "$dns -> $sites{$dns}{ipnew}\n";
}