for my $k (@vals) { $hsh->{$k} = 1; }