Help for this page
@data_names = <JOE>; chomp @data_names; # . . .
for (@data_names) { # $_ contains each name in turn }