#!/usr/local/bin/perl
 
use strict;
 
for my $lettre('a'..'z','A'..'Z')   #En minuscule et majuscule