my @list = qw( ... );

 my %hash;
 undef @hash{@list};
 print $_, "\n" for keys %hash;

##</code><code>##

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