perl_entrance_score_1

perl_entrance_score_1.pl

my @persons = ($papix, $boolfool, $moznion, $binarian, $uzulla);

for my $person (@persons) {
    my $sum = 0;
    my @keys = keys %$person;
    for my $key (@keys) {
        if ($key eq "name" || $key eq "affiliation") {
            next;
        }
        $sum += $person->{$key}
    }
    $person->{sum} = $sum;
    print Dumper($person);
}