map { $_ => 1 } @array

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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