sub ret_a_ref {
my @arr;
...
return \@arr;
}

my $a_ref = ret_a_ref();
my $first = $a_ref->[0];
...