open (TONES,"< $tones_datei" or die" $!\n");# -->FEHLER....WARUM?<--