my $several = ...;
my @lines;
push @lines, $_ while @lines < $several && defined($_ = <$file>);