Help for this page
Select Code to Download
Select
or
download this
my %y; $y{shift(@x)} = 1 while @x;
Select
or
download this
my %y = map { $_ => 1 } @x;