if (exists $daten{$notiz}){ print "\n$daten{$notiz}\n"} else { print "\nNicht gefunden !!\n"} datensuchen();