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',
);

print "$ich{name}\n";
print "$du{name}\n";