LINE: while(my $line=<PRFILE>) {
    chomp $line;
    my @fields = split(/\|/, $line);
    
    # do suffix first; skip line in parent if suffix absent
    my $suffix = substr($fields[4], 11);
    next LINE if(!exists $lookupHash{$suffix});
    
    # reach here if suffix exists; check prefix
    my $prefix = substr($fields[4], 0, 11);
    next LINE if(!exists $lookupHash{$suffix}->{$prefix});
    
    # Output the parent line
    print $OUTFILE $line."\n";
    
    # ... or output the child line if you needed that one
    #print $OUTFILE $lookupHash{$suffix}->{$prefix}."\n";
}