Select Code to Download

print $fields[0], "  ", $row if exists $hash{$fields[0]};

my %hash=(); 
open (my $fh,'<',$file2) or die $!; 
...
close $fh;
print "KEYS AND RECORDS ARE:\n";
print Dumper(\%hash);

print $hash{$fields[0]}, "  ", $row if exists $hash{$fields[0]};