Yes indeedy. So then, to complete this exercise and return to your very legitimate concern above about maintaining this code if the number of arguments changes, we can use:

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

and slice assignment will take care of itself if we change the key list.