foreach my $user (keys %$matches) {
    print "$user: ". @{$matches->{$user}} . "\n";
}