for my $digit (0 .. 9) {
    print "$digit\t";
    print map { ($_->[$digit]||=0)."\t" } reverse @fh;
    print "\n";
}