foreach my $src ( keys %hash ) {
    foreach my $sport ( keys %{$hash{$src}} ) {
        printf "%s appears with %s %d times\n",
               $src, $sport, $hash{$src}{$sport};
    }
}