#!/usr/bin/perl

$f1 = 'C:\file1.csv';
open FILE1, "$f1" or die "Could not open file $f1\n";
$f2 = 'C:\file2.csv';
open FILE2, "$f2" or die "Could not open file $f2\n";
 
$outfile = 'C:\output.csv';
 
open (OUT, ">$outfile") or die "Cannot open $outfile for writing \n";

foreach (<FILE1>) 
{
   my @outer_text = $_;
   @outer_text = split (/,/);
   if ($outer_text[0] =~ "^Kelly\$")
	{
	@outer_text = $_;
	}

   seek(FILE2,0,0);

 
foreach (<FILE2>) 
{
   my @inner_text = $_;
   @inner_text = split (/,/);
   if ($inner_text[0] =~ "^Kelly\$") 
	{
	if (@outer_text eq @inner_text) 
		{
		print OUT $_;
		}
	}
}
}

close OUT;
 
close FILE1;
close FILE2;