Select Code to Download

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

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