%seen = ();
@uniqu = grep { ! $seen{$_} ++ } @list;