my (%r1,%r2,%r3,%r4);
my $Total;

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[0].$f[1]";
if ($c{$key}) {
$key = $c{$key};
if (exists($r1{$key})){
$r1{$key} += $f[02];
}
else { 
$r1{$key} += $f[02];
}
$Total +=$r1{$key};
}
}
$r1{'Total'} = $Total;
}
close FILE;