sub uniq2{ my %x; @x{ @_ } = (); keys %x }