foreach my $i ( 0 .. $count ){
  • to be more explicit (since you want an array), do unless( ref($doc->{$sub1}) eq 'ARRAY' ){