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

[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;