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

##</code><code>##

sub f { my $x = ...; return $x }