my @Zahl = <Datei>;
print Datei $Zahl[0]++;