form( $num);
...
sub form
  { my $game= shift; # if you have several parameters use
                     # my( $p1, $p2)= @_;
   ...
  }