my @role = (
        [ qw(a b c d e f g h i j k l m) ],
        [ qw(n o p q r s t u v w x y z) ],
);

my $row = 0;
say $role[$row][1], $role[$row][2], $role[$row][3], $role[$row][4], $role[$row][5], $role[$row][6], $role[$row][7], $role[$row][8], $role[$row][9], $role[$row][10];
say @{$role[$row]}[1..10];