my $linecount=0;
open FILE, $data_file;
while (<FILE>) {
    $linecount++;
}
close FILE;