my @liste = (0..10);
print $_,"\n" for @liste;