Can you explain what is it supposed to do? This example

  my ($html);
  if ($form->submitted && $form->validate) {
    my $field = $self->{'q'}->Vars;
    if($form->submitted eq 'Process Group Action'){
      if($field->{'group_action'} eq 'add_to_group'){
        $self->_add_phone_numbers_to_group($field);
        $self->{'q'}->delete('_submitted_Group_Actions');
      } elsif($field->{'group_action'} eq 'remove_from_group'){
        $self->_remove_phone_numbers_from_group($field);
        $self->{'q'}->delete('_submitted_Group_Actions');
      } elsif($field->{'group_action'} eq 'edit_group'){
        $self->_edit_group($field);
        $self->{'q'}->delete('_submitted_Group_Actions');
      } elsif($field->{'group_action'} eq 'delete_from_list'){
        $self->_delete_phone_numbers_from_list($field);
        $self->{'q'}->delete('_submitted_Group_Actions');
      }
    }
    $html = $form->render();
  } else {
    $html = $form->render();
  }
[download]

is too much typing. if($foo){print 1} else {print 1} so

  my ($html);
  if ($form->submitted && $form->validate) {
    my $field = $self->{'q'}->Vars;
    if($form->submitted eq 'Process Group Action'){
      if ...
  }
  $html = $form->render();
[download]