my ( $count, @data );
open (FH, "myfile.txt") or die $!;
$count = scalar (@data = <FH>);
close FH;