sub unique { my %x; @x{@_} = @_; values %x }