sub uniq { my %h; @h{@_} = (0..$#_); @_[ sort { $a <=> $b } values %h ] }