my %X;
@clean_ord_array = 
grep  {!defined $X{$_}  and $X{$_} = 1  } grep  /\d+/  ,@array;
print join "\n", @clean_ord_array,"\n";
print join "\n", sort { $a <=> $b } @clean_ord_array,"\n"