配列をハッシュに変換する

配列を要素のキーを持つ連想配列（ハッシュ）にすることができます。

---

@foo = ('A', 'B', 'C');

# 配列を連想配列に変換
%hash = ();
$hash{$_} = 1 for @foo;

foreach $key(keys %hash) {
    print "$key:$hash{$key}\n";
}

---

結果は以下のようになります。

---

A:1
C:1
B:1

---