my @personen = (
    {
        name       => 'Raab',
        vorname    => 'David',
        geburtstag => '19.02.1983',
        wohnort    => 'Essen',
    },
    {
        name       => 'toppsino',
        vorname    => 'Dirk',
        geburtstag => '1.1.1970',
        wohnort    => 'Bad Nauheim',
    },
);

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