my %hash = map {$_ => 1} @array;