use strict;
use warnings;

open my $file, '<', "filename";

my $count_lines;

my @array;

while (<$file>) {
    $count_lines++;
    push @array, qw($_);
    last if ( $count_lines == 2 );
}

my $lines = @array;
print $lines;

if ( $lines == 1 ) {
    print "this file only has 1 line";
}
else {
    print "this file has 2 or more lines";
}