What about the inverted arrow? :-)

perl -E '$from = 0; $to = 10; say $to while $to    --> $from'
perl -E '$from = 0; $to = 10; say $to while $from <--  $to'
[download]