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