I think you want to print conditionally. The trinary op is helpful:

print OUT $host,
         " "x(40-length($host)),
         "->     ",
         $xronos,
         (defined $game ? "     ->     $game" : ''),
         "\n";
[download]

That handles both cases.