+# Perl入学式 2018 第3回 復習問題 score.pl
+# https://github.com/perl-entrance-org/workshop-2018/blob/master/3rd/practice.md
+# 下記を参考に、各人物の言語ごとの成績を5段階で出力して下さい。
+# それぞれの人物を表したハッシュリファレンスを集めた配列を作成
+my @people = ( $alice, $bob, $carol, $dave, $ellen );
+ print $man->{name}, "\n";
+# 出力例は固定、かつアルファベット順ではなく、sprintfは
+# Perl入学式の範囲にない・・・ような気がするので、ベタ書きする
+# http://d.hatena.ne.jp/perlcodesample/20080221/1203613344
+ print ' perl :', '*' x ( $man->{perl} / 20 ), "\n";
+ print ' python :', '*' x ( $man->{python} / 20 ), "\n";
+ print ' ruby :', '*' x ( $man->{ruby} / 20 ), "\n";
+ print ' php :', '*' x ( $man->{php} / 20 ), "\n";
+ print ' binary :', '*' x ( $man->{binary} / 20 ), "\n";