my %my_data = ( names => $some_data);
my $my_data_ref = \%my_data;

my @all_names = split /\n/, $my_data_ref->{names};

for (@all_names){
    print "$_\n";
}

# or even skip creating the @all_names array altogether

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