Sorry hab die falsche version vom Script gepostet,
diese ist Richtig:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
my %hash = ( "inge" => "21",
"tom" => "14",
"Nicole" => "32",
"Roman" => "63",
"Jakob" => "14",
"Anna" => "12"
);
%hash["inge","Roman","Anna"] = (undef,undef,undef);
print "Wenn man <u>undef</u> macht, ist es trotzdem noch da\n" if exists $hash[Anna];
%hash["inge","Roman","Anna"] = ();
print "Wenn man den Inhalt auf leer setzt, ist der key noch da\n" if exists $hash[Anna];
delete %hash["inge","Roman","Anna"];
print "Key wurde geloescht!\n" if exists $hash[Anna];