Help for this page
my $count = @{ $doc->{$sub1} }; for (my $i=0; $i<$count; $i++)
my $count = @{ $doc->{$sub1} }; for my $i ( 0 .. $count-1 )
my $last = $#{ $doc->{$sub1} }; for my $i ( 0 .. $last )