score.pl の次の一歩。一人分の合計

score_before2.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;

my $papix = {
    name        => 'papix',
    affiliation => 'namba.pm',
    perl        => 60,
    python      => 50,
    ruby        => 50,
    php         => 80,
    binary      => 30,
};

my @languages = qw(perl python ruby php binary);

my $sum = 0;
for my $language ( @languages ) {
    $sum = $sum + $papix->{$language};
}
$papix->{sum} = $sum;