for $x( 'a'..'Z'){
for $y('a'..'z'){
print "$x$y\n";
}
}