...

print "<td>$_->[1]</td><td>$_->[2]</td>...\n"
    for sort { int $b->[1] <=> int $a->[1] }
        map { [ $_, split /::/, $games{$_}, 2 ] }
        keys %games;

...