mine @a = (1,2,3);

##</code><code>##

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

##</code><code>##

mine @a = (1,2,3);