use strict;
use warnings;
use Data::Dumper;

sub return_arr_ref
{
 my @array = (1,2,3,4,5,6,7);
 return \@array;
}

my $array_ref = return_arr_ref();

print Dumper $array_ref;