in reply to How do I print a hash so that it represents actual table with column headers?

In response to the note above:

   my %tmp = %{$hash{$key}};
   printf($format, $key, @tmp{@keys});

[download]

Could be rewritten as:

   printf($format, $key, @{$hash{$key}{@keys});

[download]

Originally posted as a Categorized Answer.

In Section Seekers of Perl Wisdom