my @dirs = qw{ dir1 dir2 dir3 };
my $num_targets = $#dirs + 1;

my $counter = 0;
foreach (0..10) {
        my $target = $dirs[$counter % $num_targets];

        print "$_ => $target\n";

        $counter++;
}