open my $datafile, "<", $datafile_name;