sub uinq { local %_; @_{@_}=(); keys %_ }
  
  my @array = (1,1,3,3,2,3,5,7,5,2);

  print join ',', uinq(@array), "\n"