my @keys = qw( key1 key2 key3 );
my %hash;
map {$hash{$_}=0} @keys;