open(ALIASES3, "+<$aliases_file") or &error("Kann die Datei $aliases_file nicht lesen!");
    while (<ALIASES3>){
        push(@aliases4, $_);
    }
    close (ALIASES3);
    open(ALIASES4, ">$aliases_file") or &error("Kann die Datei $aliases_file nicht lesen!");
    while (<@aliases4>){    
        print ALIASES4 $_."\n";
    } 
    close (ALIASES4);