$STable = 'tab001';
print $query->start_multipart_form("POST","printFields");
print $query->checkbox_group(-name=>'FieldNames',
                             -value=>[ @array ]);
$query->param(  -name=>'TblMenu',
                -value=>$STable);
print $query->submit('doWhat','Print Fields');
print $query->end_form;

##</code><code>##

$SFields = join(", ",$query->param('FieldNames'));
$STab    = $query->param('TblMenu');

##</code><code>##

$STab    = $query->param('FieldNames.TblMenu');