Select Code to Download

sub inc{
...
my@b=(1..5);
my $c = inc(inc(\@b));
print Dumper $c;

$VAR1 = [
          [
...
            ]
          ]
        ];

@a = (1,2,3,4,5,6);
increment(\@a);

#produces tuples of:
[1,2],[2,3],[3,4],[4,5],[5,6] #yay!!

$VAR1 = [
          [
...
            ]
          ]
        ];

my @a = (1,2,3,4,6);

...
   }
   \@b
}