@array = grep { ! $seen{$_}++ } @array ;