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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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