Select Code to Download

my %my_data = ( names => $some_data);
my $my_data_ref = \%my_data;
...
# or even skip creating the @all_names array altogether

print "$_\n" for split /\n/, $my_data_ref->{names};