for my $dirname (@dirnames) {
   ...
   fork
   ...
   say $dirname;
   ...
}