@children = $h->content_list;
foreach $c (@children)
{
   if (is_scalar($c)) { print "$c\n"; }
   else { $c->do_something(); }
}