my @array = qw(apple orange pine); のような配列が渡された際に， my %hash = ( apple => 1, orange => 1, pine => 1, ); のように同じ値を持つハッシュを生成したい．クックブックにも載ってなかったので頭の体操． ハッシュの初期化はリストで．というイ…