in reply to SIMPLE way to write these?

foreach (1..10){print "$_\n"}

or, with while:

my $i = 0; while ($i < 11){++$i; print $i};

as Choroba said before

In Section Seekers of Perl Wisdom