Re^3: Can this script be Optimized?

OK - one final (short/cryptic) version:

print join( ",\t" => my @kk=sort keys %$Hash ), $/;
for (my $i=0; scalar grep {+defined} (my @v=map {$Hash->{$_}[$i] } @kk
+ )  ; $i++){
  print  join ("\t", map {defined $_ ? $_:""}@v),"$/";
}
[download]

What is the sound of Perl? Is it not the sound of a wall that people have stopped banging their heads against?
-Larry Wall, 1992

Comment on Re^3: Can this script be Optimized? Download Code