Try something like this:

use Data::Dumper;

for my $host ( @ARGV ) {
    if ( $result->{$host} ) {
        print "Got host $host:\n", Dumper( $result->{$host} );
    }
    else {
        print "Did not get host $host:\n", Dumper( $err->{$host} );
    }
}
[download]

You should then be able to work out how to extract needed info.