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