given the following hash how do I print the number of children?

use Data::Dumper;
 
%barry = (
   name      => Barry,
   age       => 67,
   children  => [                       # anon array of hashes
                     {                    # anon hash 1
                        name        => Jenny,
                        age         => 38,
                        education   => BA
                     },
 
                     {
                        name        => Brendan,
                        age         => 20,
                        education   => student
                     }
                  ]
      );
 
 
for $i (0 .. 1) {
      print $barry{children}->[$i]->{name}      . "\n";
      print $barry{children}->[$i]->{age}       . "\n"  ;
      print $barry{children}->[$i]->{education} . "\n"  ;
      print "-----------------------\n";
   }
 
 
print Dumper(%barry);