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