open my $fh, '<', $data_file or die "Can't open `$data_file': $!\n";