my $file = 'text.txt';
open my $fh, '<' , $file or die $!;
my @data = <$fh>;
close $fh;

print scalar @data;