push @list, $element unless grep {$_ eq $element} @list;

#or 

keys %hash = @list;
$hash{$element}++ unless exists $hash{$element};