Select Code to Download

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

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

for my $idx (0..$#dirnames) {
   ...
...
   say $dirnames[$idx];
   ...
}

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