use strict;
use warnings;
use Carp;

my $hr_f1 = getlines($ARGV[0]);

open(IN,"<$ARGV[1]") or croak "unable to open $ARGV[1]: $!";

while(my $l = <IN>) {
        my ($k,$v) = getkv($l);
        if (defined $hr_f1->{$k}) {
                print "$k|$v|$hr_f1->{$k}\n";
        } else {
                print "$k|$v|NO MATCH\n";
        }
}

sub getlines {
        my $fn = shift;
        my %h = ();
        open(IN,"<$fn") or croak "unable to open $fn: $!";
        while(my $l = <IN>) {
                my ($k,$v) = getkv($l);
                $h{$k} = $v;
        }
        close(IN);
        return \%h;
}

sub getkv {
        my $l = shift;
        chomp $l;
        my @l = split /\|/, $l;
        return "$l[0]|$l[1]","$l[2]";
}