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

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