#!/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";
}