for(my $i=0;$i<10;$i++) { print $i,"\n"}
for(my $i=9;$i>=0;$i--) { print $i,"\n"}