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

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

##</code><code>##

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

##</code><code>##

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