You can avoid the temporary here:

my ($response,$array_of_responses) = whoisip_query($ip);
while (my ($key, $value) = each %$response) 
{
    print "value of $key is $value\n";
}
[download]

Makeshifts last the longest.