Re^3: Can this script be Optimized?

[NetWallah]

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),"$/";
}