%h = ();   # Hash ist leer
print Dumper(\%h),"\n";
(%h) ? print "Hash ist nicht leer\n" : print "Hash ist leer\n";
$h{n0}{t0} = 1;   # Hash ist nicht leer, hat eine Zahl gespeichert
print Dumper(\%h),"\n";
(%h) ? print "Hash ist nicht leer\n" : print "Hash ist leer\n";
delete($h{n0}{t0});   # Hash ist nicht leer, aber keine Zahl mehr da
print Dumper(\%h),"\n";
(%h) ? print "Hash ist nicht leer\n" : print "Hash ist leer\n";