use strict;
use warnings;

my %Person = ( 
             Name => 'Doe',
             Vorname => 'John',
             Ehefrau => 'Jane',
             Alter => 46,
             Kinder =>
                [ 
                  { Name  =>'Johnboy',
                    Alter => 15
                  },
                  { Name  => 'Janice',
                    Alter => 8
                  },
                ],
              );
 
print $Person{Vorname}, ' ', $Person{Name}, 
      ' ist ', $Person{Alter}, ' Jahre alt.', "\n", 
      'Er und seine Frau ', $Person{Ehefrau}, ' haben ',
      scalar(@{$Person{Kinder}}),  ' Kinder:', "\n";

for my $href (@{$Person{Kinder}})
  { 
  print '     ', $href->{'Name'},  " (", 
                 $href->{'Alter'}, ")\n";
  }