$ perl -e 'use Data::Dumper;{my @a=(0..10);$b=\@a} print Dumper $b'
$VAR1 = [
          0,
          1,
          2,
          3,
          4,
          5,
          6,
          7,
          8,
          9,
          10
        ];

##</code><code>##

$ perl -e 'use Data::Dumper;{my @a=(0..10);my $b=\@a} print Dumper $b'
$VAR1 = undef;

##</code><code>##

$ perl -e 'use Data::Dumper;{my @a=(0..10);local $b=\@a} print Dumper $b'
$VAR1 = undef;

##</code><code>##

$ perl -e 'use Data::Dumper;{my @a=(0..10);our $b=\@a} print Dumper $b'
$VAR1 = [
          0,
          1,
          2,
          3,
          4,
          5,
          6,
          7,
          8,
          9,
          10
        ];