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 )