% foreach my $p (sort { $a cmp $b } keys %$set) { % $start++; % } % for (1..3) { % $start++; % }

Параметр	Значение
<% $p %>	\ \ \
\ \	\ \

<%args> $name => undef $check => undef <%INIT> use vars qw($VAR1); my $set={}; if ($check) { eval ($check); if ($@) { warn "cannot eval $name with value '$check'"; } else { $set=$VAR1; } } my $start=0;