my @deck = create_deck();
while(1){  # or whatever; loop over specific deals, or do just N deals, etc.
  my $pid = fork;
  die unless defined $pid;
  if($pid){  # parent
    wait;
    # report on $? if desired
    next;
  }
  do_heavy_lifting(\@deck);
  exit;  # w/an error code based on result if desired
}

sub do_heavy_lifting {
  ...
  my %positions = ....;
  ...
}