$x=a;$y=a; for(2..<>){ print$y.++$x; $y=~y/a-mo-z/b-mo-za/; print$y,$/; } print$y.n,$/;