I came up with pretty much the same as Masem and Grinder but my table generater looked like this:

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

This seemed like a good time to use map.

:-)

Yves / DeMerphq
--
Have you registered your Name Space?