my %p; my @keys = qw( a b c ); @p{@keys} = (1) x @keys;