foreach (sort keys %games) {
my ($count, $game, $date) = split(/::/, $games{$_});
print "<td>$_</td> <td>SPLIT BY NUMBER HERE</td>...";
}