if (@errors) { errorhandler (\@errors, "subscribers", $fifvalues); }; sub errorhandler { my @errorlist; my $errors = shift; my $tmplpage = shift; my $fifvalues = shift; foreach (@$errors) { my %one_record = (errormsg => $_); push (@errorlist, \%one_record); } $template = $self->load_tmpl($tmplpage.'.tmpl', associate => $query, die_on_bad_params => 0); $template->param( errorlist => \@errorlist); my $html_output = $self->fill_form( \$template->output, $fifvalues ); return $html_output; #exits application }