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

##</code><code>##

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