if ($self->is_post) { %submits = map { if (m/^submit\.(.*?)(?:\.x|\.y)?$/) { my $value = $cgi->param($_); ($1 => $value) } else { () } } $cgi->param(); } $self->set_submit(\%submits);