use strict; 
use warnings; 
 
my $inFile02 = pop; 
my %hash; 
 
while (<>) { 
	chomp; 
	my @fields = split /,/; 
	my $key = $fields[1] =~ /^\d{6,}$/ ? $fields[1] : $fields[0] . $fields[1] . $fields[8]; 
	$hash{$key} = \@fields if @fields; 
} 
 
push @ARGV, $inFile02; 
 
while (<>) { 
	chomp; 
	my @fields = split /,/; 
	my $key = $fields[1] =~ /^\d{6,}$/ ? $fields[1] : $fields[0] . $fields[1] . $fields[8]; 
	next unless $hash{ $key }; 
 
	my @results; 
	for my $i ( 0 .. @fields - 1 ) { 
		push @results, "$i|$hash{ $key }[$i]|$fields[$i]" 
		  if $hash{ $key }[$i] ne $fields[$i]; 
	} 
 
	print "$.," . ( join ',', @results ) . "\n" if @results; 
}

my $key = $fields[1] =~ /^\d{6,}$/ ? $fields[1] : $fields[0] . $fields[1] . $fields[8];