I got it!!!

#!/usr/bin/perl

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

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

foreach (<FILE2>){
       @inner_text = split (/,/, $_);
       $x = '';
    $x = $status{$inner_text[1].$inner_text[2].$inner_text[10]};      
+ 
    if($x gt ''){
        print OUT $_;
    }
}

close OUT;
close FILE2;
[download]