my @list = qw( ... );
 my %hash;
 grep { $hash{$_}++ } @list;
 print $_, "\n" foreach keys %hash;