my %ich = (
    name       => 'Raab',
    vorname    => 'David',
    geburtstag => '19.02.1983',
    wohnort    => 'Essen',
);

my %du = (
    name       => 'toppsino',
    vorname    => 'Dirk',
    geburtstag => '1.1.1970',
    wohnort    => 'Bad Nauheim',
);

my @personen = ( \%ich, \%du );

for my $person ( @personen ) {
    print $person->{name}, "\n";
}