open (TONES, "<", $tones_datei) or die "$!\n";