+# Perl入学式 2018 第3回 復習問題 score.pl
+# https://github.com/perl-entrance-org/workshop-2018/blob/master/3rd/practice.md
+# それぞれの人物を表したハッシュリファレンスに, そのハッシュリファレンスに
+# 含まれるプログラミング言語のスコア(perl, python, ruby,
+# php, binary)を合計した値を, sumというキーで追加してみましょう.
+# ここでは, 手動でスコアを合計してハッシュリファレンスに直接入力するのでは
+# なく, ハッシュリファレンスを利用してスコアの合計値を計算してから入力する
+# それぞれの人物を表したハッシュリファレンスを集めた配列を作成
+my @people = ( $alice, $bob, $carol, $dave, $ellen );
+# for文で配列 @people 内の、人物のハッシュリファレンスにアクセス
+# 人物のハッシュリファレンス内のkey要素(名前とプログラム言語名)を取得
+ my @key = keys %{$man};
+ # for文で人物のハッシュリファレンスのvalueを取得
+ for my $language (@key) {
+ # ただし、key要素の中にはプログラム言語ではない
+ if ( $language eq 'name' || $language eq 'country' ) {
+ # プログラム言語のスコアをsumというkeyに都度
+ $man->{sum} += $man->{$language};