my %y; $y{shift(@x)} = 1 while @x;