my ($response,$array_of_responses) = whoisip_query($ip);

    foreach (sort keys(%{$response}) ){
        print "$_: $response->{$_}\n";
    }

##</code><code>##

   foreach (sort keys(%{$response}) ){
     if($_ =~ m/Email/g){
       $email=$response->{$_};
     }
     if($_ =~ m/Contact/g){
       $contact=$response->{$_};
     }
   }