Select Code to Download

my @A #list A
= (    #init:
...
    0, 1, 2,0, 1,1, 0, #R[0] = R[0] +1

);

#!/usr/bin/perl
...
    }
       $ptr = $temp; 
}