+# Perl入学式 2018 第3回 復習問題 score.pl
+# https://github.com/perl-entrance-org/workshop-2018/blob/master/3rd/practice.md
+# 2-4. 国ごとのPerlハイスコアリストを作る
+# $highscoreというハッシュリファレンスを作成し、国(country)
+# ごとの perl のスコアが 60 以上の人の名前を格納しましょう。
+# それぞれの人物を表したハッシュリファレンスを集めた配列を作成
+my @people = ( $alice, $bob, $carol, $dave, $ellen );
+ # 人物のハッシュリファレンスのkeyがperlの値が
+ if ( $man->{perl} >= 60 ) {
+ my $country = $man->{country};
+# 国名をkeyに、名前をvalueに作成される配列リファレンスにpushする
+# valueに配列リファレンスがなければ、pushすることで作成される
+ push @{ $highscore->{$country} }, $man->{name};
+print Dumper $highscore;