#!/usr/local/bin/perl

use strict;

for my $lettre('a'..'z','A'..'Z')   #En minuscule et majuscule