my @array = (1,1,3,3,2,3,5,7,5,2);

  # uniqify without modules 
  @array = do { @$_{@array} = (); keys %$_ };