#! perl -slw
use strict;

my @data;
my $i = 0;

#$data[ $i++ ] = [ split ' ' ]

++$i while <DATA>;

print $i;

__DATA__
-69.282032302755084 40.000000000000014  0   -1
-69.123493781255831 39.908467741935496  -1.4443382565142906e-006    -1
-68.748013135538145 40.911009397420145  0   -1
-68.964955259756593 39.816935483870985  -2.990721348858345e-006 -1
-68.370049396495517 40.298149116372635  -6.3944096502804299e-006    -1
-68.202015544462682 41.814890597403163  0   -1
...
2.4 million lines omitted.