perl で hash ref を作成するときに、どっかで刷り込まれて 気持ち悪いなあと思いながら、 @hashes = map +{ $_ => 1 }, @ary; こんなことやってた。こっちのほうが気持ちいいので、 @hashes = map { +{ ....} } @ary; もうやらないことにしました。