% foreach (@field) { % if($param{'no_table'}) { <% shift @label %> % } % else { <% shift @label %> % } % }
Debugging:

<%init> my %param = @_; my @label = ref($param{'label'}) ? @{$param{'label'}} : ($param{'label'}); my @field = ref($param{'field'}) ? @{$param{'field'}} : ($param{'field'});