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

##</code><code>##

my %y = map { $_ => 1 } @x;