&nForX($code, 1, \@c, 1, 'a');