my $FILE;
open $FILE, "log.txt" or die $!; # Datei ist anfangs leer !
my @lines = <$FILE>;
close ($FILE);