my (%seen, @unique);
chomp( @unique = grep {not $seen{$_}++} <FILE> );