Select Code to Download

    @next{'0'..'9','A'..'Z'}= ('1'..'0','A'..'Z','0');

>> perl -MO=Deparse -le '@x = (0 .. 9)'
@x = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
...

>> perl -le 'print "1" > "0" ? "yes" : "no"'
yes