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