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";
}