foreach my $file (@files) {
open FILE, "<$dir/$file" or warn "Couldn't open file ($!) or file ($!) not found\n";
while (chomp ( my @fields = split /\t/, <FILE>) ) {	
my $key = "$f[1].$f[2]";
$key{'Output - Final'}=1;
if ($c{$key}) {
$key = $c{$key};
if (exists($r1{$key})){
$r1{$key} += $f[03];
}
else { 
$r1{$key} += $f[03];
}
$Total +=$r1{$key};
}
}
$r1{'Total'} = $Total;
}
close FILE;