my @ranked_teams = sort { which_is_winner($a, $b) } keys %result;

$result{$ranked_teams[0]}{rank} = my $rank = 1;

for my $i ( 1 .. $#ranked_teams ) {
$rank = $i + 1 if which_is_winner($ranked_teams[$i], $ranked_teams[$i-1]);
$result{$ranked_teams[$i]}{rank} = $rank;
}

my $max_len = length maxstr(keys %result);
print "順位 チーム名", q{ } x ($max_len - 8), "勝点 得失点差\n";

for my $team (@ranked_teams) {
printf "%2d位 %-${max_len}s %3d %4d\n",
$result{$team}{rank}, $team, $result{$team}{point}, $result{$team}{goal_diff};
}

__DATA__
4
MANCHESTER_UNITED
ARSENAL
CHELSEA
LIVERPOOL
MANCHESTER_UNITED 3 1 ARSENAL
CHELSEA 3 0 LIVERPOOL
ARSENAL 2 2 CHELSEA
LIVERPOOL 3 0 MANCHESTER_UNITED