Select Code to Download

my %h = (
   name => 'dumdum',
...
   zone => 'a4',
   pocket => 'empty',
);

printf "%-20s %5d %s\n", $h{name}, $h{age}, $h{zone};

my %a;
my @a = qw/name age zone pocket/;
@a{@a}=();
# looks weird, eh? ;-)
# now 'exists $a{name}' is true!

printf "%-20s %5d %s\n", @h{qw/name age zone/};