my $OUTFILE, q{>}, "$path_to_the_data_directory/$outfile"
  or die "failed to open $path_to_the_data_directory/$outfile: $!";