@data_names = <JOE>;
chomp @data_names;
# . . .
##</code><code>##

for (@data_names) {
    # $_ contains each name in turn
}
##</code><code>##

    open my $fh, '<', $_ or die $!;