Perl入学式 2019第3回復習問題

food.pl

#!/usr/bin/env perl
use strict;
use warnings;

my %data = (
    alice => 'sushi',
    bob   => 'soba',
    carol => 'sushi',
    dave  => 'sushi',
    ellen => 'soba',
    frank => 'udon',
);

# 以下のように、 $data に人物名と好きな食べ物がハッシュで
# 与えられています。 食べ物が何回出現したか表示してください。

my %food_count = (
    soba  => 0,
    sushi => 0,
    udon  => 0,
);

for my $name ( keys %data ) {

    my $food = $data{$name};

    $food_count{ $food }++;
}

for my $food ( keys %food_count ) {
    print $food . "\t:\t" . $food_count{$food} . "\n";
}