my $response = whoisip_query($ip);      # Query the ARIN Database

foreach (sort keys(%{$response}) ) {
        $OrgAbuseEmail = $response->{$_} if( $_ eq 'OrgAbuseEmail');
        $OrgTechEmail = $response->{$_} if( $_ eq 'OrgTechEmail');
        $TechEmail = $response->{$_} if( $_ eq 'TechEmail');

        }
$smtp = Net::SMTP->new("mymailhost", Timeout => 60);

if( $OrgAbuseEmail ){
        #lather with Net::SMTP
        exit;
        }
elsif( $OrgTechEmail ){
        #rinse
        }
elsif( $TechEmail ){
        #repeat
        }