my @keys = sort keys %TOP;
my $format = join(" ", ("%20s") x @keys)."\n";
printf $format, @keys;
for my $line (0..$#{$TOP{$keys[0]}}) {
  printf $format, map {$TOP{$_}[$line]} @keys;
}