sub BreakUpGroupingByGroup {
  my ( $lineno, $match ) = (@_);
  print "In BreakUpGroupingByGroup( $lineno, \$match=$match).\n";
.......