my %seen =() ;
@unique_array = grep { ! $seen{$_}++ } @non_unique_array ;