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