foreach $name (@data) {
    print "$name";
}

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
my @data;
my $name;
open (JOE, "</Users/mrg/Desktop/names.txt") or die "No can!";
while (<JOE>) {
@data = <JOE>;
}
foreach $name (@data) {
    print "$name";
}

##</code><code>##

Joseph.Guillaume
Fred.Flintsone
Barney.Rubble
George.Jetson
ElRoy.Jetson

##</code><code>##

Last login: Wed Jul 23 13:44:11 on ttyp1
Welcome to Darwin!
G4-2:~ mrg$ /var/tmp/folders.507/Cleanup\ At\ Startup/test-238549606.074.pl.command; exit
Fred.Flintsone
Barney.Rubble
George.Jetson
ElRoy.Jetsonlogout
[Process completed]