my $aref = get_values();

sub get_values{
my @array = (1..5000000);
return \@array;
}