Select Code to Download

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

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

use strict;
use warnings;
...

    print "<td>$_</td><td>$count</td><td>$rest</td>...\n";
}

...

...
        keys %games;

...