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