# リストをハッシュに代入 %test1 = ('k1', 'aaa', 'k2', 'bbb', 'k3', 'ccc'); print "$test1{k1} : $test1{k2} : $test1{k3}\n"; # =>演算子を使用してハッシュに代入 %test2 = (k1 => 'ddd', k2 => 'eee', k3 => 'fff'); print "$test2{k1} : $test2{k2} : $test2{k3}\n"; # キー値を直接指定してハッシュに代入 %test3 = (); $test3{k1} = 'ggg'; $test3{k2} = 'hhh'; $test3{k3} = 'iii'; print "$test3{k1} : $test3{k2} : $test3{k3}\n";