open(my $read_aliases, "<$aliases_file") or &error("Kann die Datei $aliases_file nicht lesen!");
my @aliases = <$read_aliases>
close ($read_aliases);

open(my $write_aliases, ">$aliases_file") or &error("Kann die Datei $aliases_file nicht oeffnen!");
print $write_aliases $_ for(@aliases);
close $write_aliases;