Select Code to Download

sub first_x {
    my @data = ( split /\s+/, $_[0], $_[1] + 1 )[ 0 .. $_[1] - 1 ];
...
        : join ' ' , @data
        ;
}

sub first_x {
    my @data = split /\s+/, $_[0], $_[1] + 1 ;
...
        : join ' ' , @data
        ;
}