Iterator::Array::Jagged

use Iterator::Array::Jagged;

my @data = (
    [ 1, 2, 3 ],
    [ 1, 2,   ],
    [ 1, 2, 3 ],
);

my $iter = Iterator::Array::Jagged->new( data => \@data );
while (my @set = $iter->next) {
    print join("", reverse @set)."\n";
}
[download]