perl_entrance_score_highscore2-1.pl

perl_entrance_score_highscore2-1.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 $boolfool = {
    name        => 'boolfool',
    affiliation => 'namba.pm',
    perl        => 40,
    python      => 10,
    ruby        => 20,
    php         => 30,
    binary      => 10,
};
my $moznion = {
    name        => 'moznion',
    affiliation => 'hachioji.pm',
    perl        => 100,
    python      => 70,
    ruby        => 80,
    php         => 50,
    binary      => 50,
};
my $binarian = {
    name        => 'binarian',
    affiliation => 'hachioji.pm',
    perl        => 10,
    python      => 11,
    ruby        => 1,
    php         => 100,
    binary      => 100,
};
my $uzulla = {
    name        => 'uzulla',
    affiliation => 'hachioji.pm',
    perl        => 1,
    python      => 0.01,
    ruby        => 0.5,
    php         => 4,
    binary      => 0.01,
};

my @people = ($papix, $boolfool, $moznion, $binarian, $uzulla);
my @lang = qw/perl python ruby php binary/;
my $highscore;

for my $people (@people) {
    for my $lang (@lang) {
        my $score = $people->{$lang};
        if ($score >= 60) {
            push @{$highscore->{$lang}}, $people->{name};
        }
    }
}
print Dumper $highscore;