use strict;
use warnings;

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

my @arr = ($str =~ /^(?:[^\n]*\n){$discard}(.*)/s ? split /\n/, $1 : () );

print "@arr";