chomp (@_ = ); for ($_ = 0; $_ <= $#_; $_ += 10) { @{$_[$_]} = @_[($_+1)..($_+9)]; } print "@alpha"; __DATA__ alpha beta gamma delta epsilon zeta eta theta iota kappa lamda mu nu