my $person={Alter=>25, Name=>'Peter', Größe=>172};
print $person->{Alter}."\n"