for my $idx (1..4) {
   ...
   fork
   ...
   say $dirnames[$idx - 1];
   ...
}