Wait, I've not replied to this yet? Anyway, lots of options seem to be missing. Here are some more possibilities, no doubt there are more.

• recursion with named subs: $_=0;sub f{say;$_++<9and f()}f;
• recursion with subrefs: my$s;$s=sub{say$_[0];$_[0]<9and&$s(1+$_[0])};&$s(0);$s=0;
• recursion via overload, tie, DESTROY, DB, SIG, or other automagical sub calls: $_=0;DESTROY{say$_;$_++<9and bless[]};bless[];
• bounded looping without recursion: $_=0;sub f0{say;$_++<9}eval join"",map{"sub f".(1+$_)."{f$_ and f$_}"}0..7;f8();
• recursion the nice way (ie. without circular references ie. without letrec or mutable variables): my$s=sub{say$_[0];$_[0]<9and&{$_[1]}(1+$_[0],$_[1])};&$s(0,$s);
• redo: $_=0;{say;$_++<9and redo};
• map: map say,0..9;
• grep: grep say,0..9;
• sort: ()=sort{$u{$a}++or say$a;$u{$b}++or say$b;0}0..9;
• repeated substitution: $k=0;$_="a"x10;s/./say$k++/ge;
• (?:{}) with list context g regex or the regex engine itself looping: $k=0;()=("a"x10)=~/.(?{say$k++})/g;
• string eval: $_=0;eval "say(\$_++);"x10; (don't laugh, I heared the developers of the J programming language used this in the very early stage of creating J when it didn't yet have the goto or other control statements)
• own loop library implemented in XS

Update 2010-10-17: see also the other poll If I was forced to use only one kind of loop for the rest of my days it would be a.