>perl cyclic_array_iter_1.pl
ok 1 - person: tom
ok 2 - person: harry
ok 3 - person: diana
ok 4 - person: nick
ok 5 - person: sally
ok 6 - person: henry
ok 7 - wrap: person: tom
ok 8 - person: harry
ok 9 - after re-indexing: person: tom
ok 10 - person: harry
ok 11 - after bad index (-1): person: tom
ok 12 - person: harry
ok 13 - after bad index (1 beyond): person: tom
ok 14 - person: harry
ok 15 - after bad index (big): person: tom
ok 16 - harry,play
ok 17 - nick,nap
ok 18 - sally,play
ok 19 - henry,eat
ok 20 - tom,nap
1..20