for my $i (0 .. $#dirs) {
    my $dir = $dirs[$i];
    ...
}