my @array = (1..10);
my %hash = ();

##</code><code>##

%hash{@array} = (1) x scalar(@array};