This module might simplify your task somewhat: Array::Iterator::Circular http://search.cpan.org/~stevan/Array-Iterator-0.06/lib/Array/Iterator/Circular.pm
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
