#ハッシュの設定%hash = ('A' => 'アデニン', 'T' => 'チミン', 'G' => 'グアニン', 'C' => 'シトシン');print $hash{'A'},"\n" →アデニン #ハッシュの追加$hash{'U'} = 'ウラシル';#keys関数（すべてのキーをリストにして返す）@key = keys(%hash);#values（すべての値をリストにして返す）@value = values(%hash);#each関数while (($key, $value) = each(%hash)){print "$key = $value\n"; } #exists関数（%hashの中に$keyに対応する値があるか探す）if (exists($hash{$key})) {.... } |