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