Select Code to Download

use strict;
use warnings;
...
   $a++;
   $y++;
}

  DB<22> c
0123auto(-3)  DB<22> X y
...
  DB<25> c
45678910auto(-1)  DB<25> X y
  DB<26>