Select Code to Download

printf "%20s %s\n", "Key", "Value";
printf "%20s-%s\n", "-"x20, "-----";
foreach my $key (keys %hash) {
   printf "%20s %s\n", $key, $hash{$key};
}

# $hash{$key} = { field1 => 'value', ... };

...
foreach my $key (keys %hash) {
   printf $format, $key, @{$hash{$key}}{@keys};
}