my @lines = `wc -l $data_file`; 
@lines[0] =~ /(\d+)\s/;
my $linecount = $1;

##</code><code>##

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