Select Code to Download

my %from_to_bytes;
my %col_headings;
...
    $from_to_bytes{"~~TOTAL"}{$to} += $bytes;
    $col_headings{$to} = undef;
}

print join("\t", '', sort keys %col_headings, 'Total'),"\n";
for my $from ( sort keys %from_to_bytes ) {
    print (( $from eq '~~TOTAL' ) ? 'Total' : $from );
    print "\t$from_to_bytes{$from}{$_}" for (sort keys %{$from_to_byte
+s{$from}});
}