open(my $fh,'<',$data_file) or die $!;