Select Code to Download

use strict;
use warnings;
...
list: ()
first ref: (1 2 3 a b)
final list: (4 5 6)

use strict;
use warnings;
...
list: (1 2 3 a b)
first ref: (1 2 3 a b 4 5 6)
last list: (1 2 3 a b 4 5 6)

use strict;
use warnings;
...
my $ref2 = foo(4..6);
print "first ref: (@$ref1)\n";
print "final list: (@$ref2)\n";