Can't call method "0" on unblessed reference

##</code><code>##

my $cnt = 0;
for (keys %barry) {$cnt++ if $_ eq 'children'}
print "cnt=$cnt\n";
__END__
cnt=1