Select Code to Download

#!/usr/bin/env perl -l
use strict;
...
    print join("\t" => 'Sub', @{$data{subtotal}{$type}}{qw{val1 val2 v
+al3 val4}})."\n";
}
print join("\t" => 'Tot', @{$data{total}}{qw{val1 val2 val3 val4}})."\
+n";

CACK
A       2       2       2       2
...
F       4       2       0       0
Sub     8       4       0       0
Tot     20      16      8       8

file 1
A    RACK    2    2    2    2
...
E    TACK    4    2
F    TACK    4    2

CACK
A       2       2       2       2
...
F       4       2       0       0
Sub     8       4       0       0
Tot     20      16      8       8