Select Code to Download

for ($i = 1; $i < 5; $i++){
$a[$i]{'name'} = "file$i";
...
foreach $key ('name', grep {$_ ne 'name'} sort keys $a[1]){
        print join "\t", $key, map($_->{$key}, @a[1..4]),"\n";
}

name    file1   file2   file3   file4
AB      12.00   01.00   02.00   62.00
...
EF      11.00   42.00   15.00   24.00
GH      22.00   34.00   20.00   26.00
total   58.00   81.00   40.00   155.00

~@deb:~/perl/9# cat file1
A       B       12.00
...
2       C       D       43.00
3       E       F       24.00
4       G       H       26.00