@a=qw(a b c d); @b{@a}=(1,2,3,4); foreach $key (keys %b) { print"$key => $b{$key}\n"; }