my @a = qw(aaa bbb);
my $r = \$a[0];
@a = ();
print $$r;