open(FILE,"<D:\\Versuch\\demo.dat");
my @a = <FILE>;
close(FILE);
my $i;
foreach $i (@a) {
    print "$i\n";
}