my $aPush= sub { \@_ };
    my $av= [];
    while(  9 < @_  ) {
        $av= $aPush->( @$av, $_[0][0], $_[1][0], $_[2][0], $_[3][0],
            $_[4][0], $_[5][0], $_[6][0], $_[7][0], $_[8][0], $_[9][0] );
        splice @_, 0, 10;
    }
    while(  2 < @_  ) {
        $av= $aPush->( @$av, $_[0][0], $_[1][0], $_[2][0] );
        splice @_, 0, 3;
    }
    $av= $aPush->( @$av, $_->[0] )   for  @_;