Select Code to Download

my $r_array = [1,2,3]; # make an array and put a reference to it in $r
+_array. - note square brackets

...
sub foo {return [1,2,3]) #this sub returns a reference to an array
$r_array = foo();  #you could call it like this

use Data::Dumper; print Dumper($r_array1, $r_array2);

...
            10
          ]
        ];