@array = qw( a b c d ) ;
$array{$_} = [@array] for @array;