Select Code to Download

my (%r1,%r2,%r3,%r4);
my $Total;
...
$r1{'Total'} = $Total;
}
close FILE;

A B 12.00
C D 13.00
E F 11.00
G H 22.00

foreach my $file (@files) {
open FILE, "<$dir/$file" or warn "Couldn't open file ($!) or file ($!)
+ not found\n";
...
$r1{'Total'} = $Total;
}
close FILE;

1 A B 12.00
2 C D 13.00
3 E F 11.00
4 G H 22.00

r1 --> hash contains data as ...
Key    Value
...
CD    43.00
EF    24.00
GH    26.00

Output - Final
    Name    F1.A    F2.B    F3.C    F4.D
...
    GH    22.00    34.00    20.00    26.00

Total    58.00    81.00    40.00    155.00