Select Code to Download

use strict;

...
        ? ( split /\s+/, $_[0], $_[1] + 1 )[ 0 .. $_[1] - 1 ]
        : join ' ', ( split /\s+/, $_[0], $_[1] + 1 )[ 0 .. $_[1] - 1 
+];
}

one, two, three, four, five, six, seven, eight, nine, ten, 
one two three four five six seven eight nine ten