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

# Nach einer Person Fragen. Subroutine generiert
# aus den eingaben einen hash und gibt eine hashreferenz
# darauf zurück.
my $person = ask_person();

# Diese hashreferenz zu @personen hinzufügen
push @personen, $person;

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

# Subroutine die nach Personendaten fragt.
sub ask_person {
    print "Bitte Name eingeben: ";
    my $name = <STDIN>;

    print "Bitte Vorname eingeben: ";
    my $vorname = <STDIN>;

    print "Bitte Geburtstag eingeben: ";
    my $geburtstag = <STDIN>;

    print "Bitte Wohnort eingeben: ";
    my $wohnort = <STDIN>;

    chomp( $name, $vorname, $geburtstag, $wohnort );

    my %person = (
        vorname    => $vorname,
        name       => $name,
        geburtstag => $geburtstag,
        wohnort    => $wohnort,
    );

    return \%person;
}