Select Code to Download

my @data = prepData();

...
    #create array of hashes
    return @data;
}

my @data;
prepData(\@data);
...
   my $refData = shift;
   #do data generation;
}

my $refData = prepData();
for my $item (@$refData) {
...
    return \@data;
}