#foreach my $num (@$arr)
#{
   #any one of these does the same thing...
   #pick one...
   @$hr{@$arr}   = (1,1,1);
   @$hr{@$arr}   = map{1}@$arr;
   @{$hr}{@$arr} = map{1}@$arr;
#}