my @array = qw( a b c d ) ;
my %hash;
         
@hash{ @array } = map [@array], @array;

print "$_ => $hash{$_}\n" for keys %hash;

__output__

a => ARRAY(0x8107e30)
b => ARRAY(0x8107f5c)
c => ARRAY(0x8107fa4)
d => ARRAY(0x8107fec)

##</code><code>##

$hash{$_} = [@array] for @array;