use strict;
use warnings;
use Data::Dumper;

my @a = (1, 2, 3, 4, 6);
my $y = increment(increment(\@a));

for my $j (@$y)
{
    print "[\n";

    for my $k (@$j)
    {
        print "    $k: @$k\n";
    }

    print "]\n";
}

sub increment
...

##</code><code>##

14:12 >perl 1896_SoPW.pl
[
    ARRAY(0x1db5610): 1 2
    ARRAY(0x1d284d8): 2 3
]
[
    ARRAY(0x1d284d8): 2 3
    ARRAY(0x1d28640): 3 4
]
[
    ARRAY(0x1d28640): 3 4
    ARRAY(0x1d28a00): 4 6
]

14:12 >