Select Code to Download

sub find_groups(&\@)
{
...
    \%groups
}

my $groups_hr = find_groups { $_->{'name'} } @rows;

...
    print "$k\t" . @{$groups_hr->{$k}} . "\n";
}

find_groups { join $;, @{$_}{qw( name game score )} } @rows;

find_groups {
    $_->{'name'} eq 'foo' ? 1 :
    $_->{'game'} =~ /bar/ ? 2 :
    $_->{'score'} >= 500  ? 3 : 0
} @rows;

use List::Util qw( sum );

...
    print "$k\t$avg\n";
}

    map { $_->{'score'} } @rows