Select Code to Download

my @array = qw(1 2 3 4 5 6 7 8 9);

...
my $where = shift @array;
$test{$where} = [splice @array, 0, 2];
...

$test{$_} = [splice @array, 0, 2] for shift @array;

$_ = [splice @array, 0, 2] for $test{shift @array};