Yeah, I thought of that one, but ultimately didn't use it because, as you mentioned, it doesn't work well with an arbitrary starting index.

You could do something like this:

my $str = "discard\ndiscard\nkeep1\nkeep2";
my $index = 2;

my @arr = grep {$index-- <= 0} split "\n", $str;
[download]