Select Code to Download

use strict;
use warnings;

my $foo;
push @$foo, 'bar';

use strict;
use warnings;
...
my $foo;

my @bar = @$foo;