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