Select Code to Download

my @foo = ( 1, 2, 3 );
my $arrayref = \@foo;

my $arrayref = [ 1, 2, 3 ];

my @foo = ( 1, 2, 3 );

my @foo = ( [1], [2], [3] );

my $arrayref1 = [ 9, 10, 'a big fat hen' ];

...
print Dumper $arrayref2;
print "Showing both sub-structure and super-structure:\n";
print Dumper $arrayref1, $arrayref2;

    Only showing super-structure:
    $VAR1 = [
...
              $VAR1,
              $VAR1
            ];