chomp( my @first = <FIRST> );
chomp( my @last = <LAST> );

my %last_names;
undef @last_names{ @last };

foreach my $name (@first ) {
    next if exists $last_names{ $name };
    print "$name\n";
}