#Open the output file for saving the results; open my $fh_out, '>', "$write_dir/$filename" or die "failed to open \'$filename\' for write $!";