while(my $line=<PRFILE>) {
    chomp $line;
    my @fields = split(/\|/, $line);
    print $OUTFILE $line."\n" if(exists $lookupHash{ $fields[4] });
}