sub datenlesenschreiben {
   open DATABASE, '>>', $database or die "$database kann leider nicht geoeffnet werden, weil $!"; # Anhängen
   if(defined $eingabefeld && $eingabefeld !~ /^\s*$/){
     print DATABASE "$eingabefeld\n";
   }
   close DATABASE;
}