my @Zahl = <Datei>;
@Zahl = @Zahl + 1;
print Datei @Zahl;