Select Code to Download

map { $_ => 1 } @array

{ map { $_ => 1 } @array }

keys %{ {map {$_ => 1} @array} }

print map "$_\n", keys %{ {map {$_ => 1} @array} };