#!/usr/bin/perl 
 
my @files_to_search = ("exportOBJ-sark.txt","ResourceRecText-ALL.txt","exportdnsrr-report.txt"); 
 
open (FL, "sark.com.txt"); 
my %search_hash = (); 
while (my $line = <FL>) { 
  my @parts = split(/,/,$line); 
  $search_hash{$parts[0]} = 1; 
  $search_hash{$parts[4]} = 1; 
} 
close(FL); 
 
foreach my $file (@files_to_search) { 
  open (FL, $file); 
  while (my $line = <FL>) { 
     foreach my $key (keys %search_hash) { 
       if ($line =~ /$key/) { 
          print $line; 
       } 
     } 
  } 
  close(FL); 
}

use strict; 
use warnings;

my $sark = 'sark.com.txt'; 
open my $FL, '<', $sark or die "failed to open '$sark' $!";

$search_hash{$parts[4]} = 1; 
should be: 
  $search_hash{$parts[3]} = 1;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Data::Dumper; 
 
my %search_hash; 
my $sark = 'sark.com.txt'; 
 
open my $FH, '<', $sark or die "failed to open '$sark' $!"; 
while (<$FH> ) { 
    my @parts = (split(/,/))[0,3]; 
    $search_hash{$parts[0]}++ if $parts[0]; 
    $search_hash{$parts[1]}++ if $parts[1]; 
} 
#print Dumper \%search_hash; 
 
my %files = ('exportOBJ-sark.txt'       => [ ',', [1,4], '.'], 
             'ResourceRecText-ALL.txt'  => [ '=', [1] ], 
             'exportdnsrr-report.txt '  => [ ',', [1] ], 
); 
 
foreach my $file ( sort keys %files ) { 
    process_file($file, $files{$file}); 
} 
 
 
sub process_file { 
    my $file = shift; 
    my ($delimiter, $fields, $join) = @{$_[0]}; 
 
    print "processing: $file\n"; 
 
    open my $FH, '<', $file or die "failed to open '$file' $!"; 
    while (<$FH> ) { 
        chomp; 
        my @parts = (split(/$delimiter/))[@$fields]; 
 
        if ( $join ) { 
            @parts = join($join, @parts); 
        } 
 
#print Dumper \@parts; 
        foreach my $key ( @parts ) { 
            if ( exists $search_hash{$key} ) { 
                print $search_hash{$key},$/; 
            } 
        } 
    } 
    print "\n\n"; 
}