$games{person} = "11::Game name::Game date";

foreach (sort keys %games) {
    my ($count, $rest) = $games{$_} =~ /^([^:]+)::(.*)/;
    print "<td>$count</td><td>$rest</td>...";
}