use warnings;
use strict;

my $aref = DoSomething();
print "$aref->[0]\n";

sub DoSomething {
    my @arr;
    push @arr, "foo";
    return \@arr;
}

__END__

foo