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