sub load_srs_data {
    my $games = shift;
    my %team;
    for ( @$games ) {
        my ( $visitor, $visit_score, $home_team, $home_score ) = split "\,", $_;
        my $diff = $home_score - $visit_score;
        $team{$visitor}{games_played}++;
        $team{$home_team}{games_played}++;
        $team{$visitor}{points} -= $diff;
        $team{$home_team}{points} += $diff;
        push @{$team{$visitor}{played}}, $home_team;
        push @{$team{$home_team}{played}}, $visitor;
    }
    my $total_team = scalar keys %team;
    my $played = zeroes $total_team, $total_team;
    my $mov = zeroes $total_team;
    my %team_map;
    my $ii = 0;
    for ( sort keys %team ) {
        my $team_diff = $team{$_}{points} / $team{$_}{games_played};
        $team_map{$_} = $ii;
        $mov->set( $ii, $team_diff );
        $ii++;
    }
    for ( keys %team ) {
        my $i = $team_map{$_};
        for my $opp (@{$team{$_}{played}}) {
            my $j = $team_map{$opp};
            my $a = $played->at ( $i, $j );
            $a++;
            $played->set( $i, $j, $a );
        }
    }
    return \%team, \%team_map, $mov, $played;
}