print "RAM-Verbrauch des Perl-Prozesses erstmals ermitteln, [Enter]\n";
<>;
#my %abland = reverse %landab;
#my $aland = $abland{a};
my $aland = {reverse %landab}->{a};
print "RAM-Verbrauch des Perl-Prozesses zum zweiten Mal ermitteln, [Enter]\n";
<>;