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

##</code><code>##

perl -e '@a = $ARGV[0]? @ARGV : (<STDIN>); chomp @a; print join  "\n", grep { ! $s{$_}++ } @a;' $*