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