% foreach (@field) { <% shift @label %> % }
Debugging: 


<%init>
my %param = @_;

my $debug = $param{'debug'};

my $callback = $param{'callback'} || "''";

my @label = ();
if ( ref($param{'label'}) ) {
  push @label, @{$param{'label'}};
}else{
  push @label, $param{'label'};
}

my @field = ();
if ( ref($param{'field'}) ) {
  push @field, @{$param{'field'}};
}else{
  push @field, $param{'field'};
}