c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my %hash = qw(a 1  b 2);
 my @array;
 @hash{@array} = 'foo';
 dd \%hash;
 ;;
 $hash{$_} = 'foo' for @array;
 dd \%hash;
"
{ a => 1, b => 2 }

{ a => 1, b => 2 }