my %X;
@clean_ord_array = 
grep  {!defined $X{$_}  and $X{$_} = 1  } 
grep  /\d+/,   
map { s/\s//g } @array;