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