boucle if en perl

Version imprimable