And a generic solution:

for ([9,5], [12,18]) {
   my ($i, $j) = @$_;
   my $f = ($i <= $j ? 1 : -1);

   for ($f*$i .. $f*$j) {
      my $index = $f*$_;
      print("$index\n");
   }
}
[download]