Select Code to Download

my @array = qw( a b c d ) ;
my %hash;
...
b => ARRAY(0x8107f5c)
c => ARRAY(0x8107fa4)
d => ARRAY(0x8107fec)

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