Just a slight variant on the already provided map approach.

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