%foreach my $order (@orders) { > <% shift @order_names %> % } <%INIT> my @orders = qw (ASC DESC); my @order_names = qw (Ascending Descending); <%ARGS> $Name => 'SortOrder' $Default => 'ASC'