#! perl -slw
use strict;
use Data::Dumper;
use List::Util qw[ reduce ];

use constant MAXINT => 2**32;

sub seq {
    my $aoa = shift;
    my @is = ( 0 ) x @$aoa;
    my @seqs;
    my @seq;

sub seq {
    my $aoa = shift;
    my @is = ( 0 ) x @$aoa;
    my @seqs;
    my @seq;

    while( grep{ $is[ $_ ] < @{ $aoa->[ $_ ] } } 0 .. $#is ) {
#        print "\n@is";
#        print "@$_" for @seq;
        my $iLow  = reduce {
            ( $aoa->[ $a ][ $is[ $a ] ] || MAXINT )
            <
            ( $aoa->[ $b ][ $is[ $b ] ] || MAXINT )
            ? $a : $b
        } 0 .. $#is;

        push @seq, [ $aoa->[ $iLow ][ $is[ $iLow ] ], $iLow, $is[ $iLow ] ];
        ++$is[ $iLow ];

        if( @seq > 1 and $seq[ -1 ][ 0 ] > ( $seq[ -2 ][ 0 ] + 1 ) ) {
            my $temp = pop @seq;                       ## Fix 1a
            push @seqs, [ @seq ] if @seq >= 4;
            @seq = $temp;                              ## Fix 1b
        }
    }
    push @seqs, \@seq if @seq >= 4;                    ## Fix 2
    return @seqs;
}

my @data = (
    [ 100, 204, 312 ],
    [ 102, 313, 409 ],
    [ 205, 206, 315 ],
    [ 207, 210, 314 ],
);

my @seqs = seq( \@data );

print map{
    sprintf "Value: %d at array:%d position:%d\n", @$_
} @$_ for @seqs;

__END__
c:\test>588553
Value: 204 at array:0 position:1
Value: 205 at array:2 position:0
Value: 206 at array:2 position:1
Value: 207 at array:3 position:0

Value: 312 at array:0 position:2
Value: 313 at array:1 position:1
Value: 314 at array:3 position:2
Value: 315 at array:2 position:2