my %hash = map ( $_ => 1 ), @array;