$ perl -Mstrict -Mwarnings -E '
    {          
        my %i;
        sub cycle {
            no warnings "uninitialized";
            $_[0]->[($i{$_[0]} % @{$_[0]}, ++$i{$_[0]})[0]];
        }                  
    }                      
    my $a2d = ["a" .. "d"];
    my $e2h = ["e" .. "h"];
    for (1..3) {
        print cycle($a2d) for 1..3;
        print cycle($e2h) for 1..3;
    }
'
abcefgdabhefcdaghe