for my $letter ( 'a'..'z' ) {