Re^2: How can one create a text file in the subfolder of a folder?

[supriyoch_2008]

Hi Shmem,

Thank you for your suggestion.

With kind regards,

supriyoch_2008

[shmem]

Thank you for your suggestion.

You're welcome. But what I wrote wasn't a suggestion - it was telling you where the problem is.
But since you thank me for a suggestion, here is one:

use Cwd;
my $cwd = getcwd();
...
map {mkdir $_; chdir $_;} @folders;
chdir $cwd;

[RonW]

Or:

map {mkdir $_; chdir $_;} @folders;
my $output="z.txt"; 
open (my $fh,">",$output) or die "Cannot open file '$dirname/$output'.
+\n";

That, of course, assumes your code doesn't have other assumptions about the current folder.

Much better to use File::Path, Path::Tiny or similar module.