Perlito5 - perl6 - refactor 0..num to ^(num+1)