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{Name}.
  " ist ".
  $Person{Alter}.
  " Jahre alt und hat ".
  @{$Person{Kinder}}.
  " Kinder.\n"
);

for (@{$Person{Kinder}})
{ print
  ( " ".
    %{$_}->{'Name'}.
    " ist ".
    %{$_}->{'Alter'}.
    " Jahre alt.\n"
  );
}