sub uniq { my @values = @_; my %uniq; @uniq{@values} = (); return keys %uniq }