Help for this page

Select Code to Download

Select or download this

my $key = shift @array;
$test{$key} = [ @array[0,1,2] ];