同じvalueを持つハッシュを生成

my @array = qw(apple orange pine);

のような配列が渡された際に，

my %hash = (
             apple => 1,
             orange => 1,
             pine => 1,
           );

のように同じ値を持つハッシュを生成したい．クックブックにも載ってなかったので頭の体操．
ハッシュの初期化はリストで．というイメージがしっかりついていたので，mapでリストを返せばよいということに気がつく．

my @array = qw(apple orange pine);
my %hash = map {($_, 1)} @array;

できたー．