Help for this page
my @keys = qw( key1 key2 key3 ); my %hash; map {$hash{$_}=0} @keys;
@keys = qw( a b c ); @values = qw ( 1 2 3 ); my %hash; $hash{$_} = shift @values for @keys;