Select Code to Download

#!/usr/bin/env perl -l

...
+);
}
print join("\t" => 'Tot', @{$data{total}}{qw{val1 val2}});

RACK
A       0       0
...
H       0       0
Sub     0       0
Tot     0      00