What if the number of strings is not divisible by 10? Which string is going to be the name of the array? The following does what you want, only using the first string of every 10, not the last:

chomp (@_ = <DATA>);
for ($_ = 0; $_ <= $#_; $_ += 10) {
    @{$_[$_]} = @_[($_+1)..($_+9)];
}

print "@alpha";

__DATA__
alpha
beta
gamma
delta
epsilon
zeta
eta
theta
iota
kappa
lamda
mu
nu
[download]

DISCLAIMER: YOU SHOULD NEVER USE CODE LIKE THIS. Proper code would be more like the following:

use strict;
use warnings;

my (@arr, %find, @order, $i);

chomp (@arr = <DATA>);

for ($i = 0; $i <= $#arr; $i += 10) {
    $find{$arr[$i]} = [@arr[($i+1)..($i+9)]];
    push @order, $arr[$i];
}

{
no warnings;
print "@{$find{$_}}\n" for @order;
}

__DATA__
alpha
beta
gamma
delta
epsilon
zeta
eta
theta
iota
kappa
lamda
mu
nu
[download]