#!/usr/bin/perl

# http://perlmonks.org/?node_id=1151834

use strict;
use warnings;

open my $FH1, '<', shift or die $!;

my %keys;
while (<$FH1>) {
	chomp;
	$keys{$_}++;
}

close $FH1;

open my $FH2, '<', shift or die $!;

while (<$FH2>) {
	chomp;
	my ($record, $key) = split ',', $_, 2;
	print "match: $key record: $record\n" if exists $keys{$key};
}

close $FH2;