Modification du nom d'un pointeur dans une boucle

Bonjour,

J'ai écrit un programme qui cherche des rimes dans deux fichiers qui contiennent des mots qui commencent respectivement par "a" et "b". Lorsque le programme trouve un mot qui finit par une certaine terminaison, il l'ajoute dans le fichier correspondant au rime en question. Si un mot ne possède aucune terminaison qui est spécifée, le programme le met dans le fichier reste_(premiere lettre du mot).txt

#!/usr/bin/perl

open(FICHIER_BANQUE_DE_MOTS_A, "banque_a.txt") or die "Le fichier ne s'ouvre pas: $!";
open(FICHIER_BANQUE_DE_MOTS_B, "banque_b.txt") or die "Le fichier ne s'ouvre pas: $!";
open(FICHIER_RIMES_AIL, ">rimes_ail.txt") or die "Le fichier ne s'ouvre pas: $!";
open(FICHIER_RIMES_AN, ">rimes_an.txt") or die "Le fichier ne s'ouvre pas: $!";
open(FICHIER_RIMES_O, ">rimes_o.txt") or die "Le fichier ne s'ouvre pas: $!";
open(FICHIER_RESTES_A, ">restes_a.txt") or die "Le fichier ne s'ouvre pas: $!";
open(FICHIER_RESTES_B, ">restes_b.txt") or die "Le fichier ne s'ouvre pas: $!";

while(<FICHIER_BANQUE_DE_MOTS_A>)
{
$x = "$_";  

if ((/ail$/) or (/aille$/)) {print FICHIER_RIMES_AIL "$_"}
else 
{if ((/an$/) or (/anc$/) or (/ant$/) or (/ent$/)) {print FICHIER_RIMES_AN "$_"}
else 
{if ((/au$/) or (/aud$/) or (/aut$/) or (/eau$/) or (/o$/) or (/ot$/) or (/ôt$/)) 
{print FICHIER_RIMES_O "$_"}
else {print FICHIER_RESTES_A "$_"};
}
} 
} 

while(<FICHIER_BANQUE_DE_MOTS_B>)
{
$x = "$_";

if ((/ail$/) or (/aille$/)) {print FICHIER_RIMES_AIL "$_"}
else 
{if ((/an$/) or (/anc$/) or (/ant$/) or (/ent$/)) {print FICHIER_RIMES_AN "$_"}
else 
{if ((/au$/) or (/aud$/) or (/aut$/) or (/eau$/) or (/o$/) or (/ot$/) or (/ôt$/)) 
{print FICHIER_RIMES_O "$_"}
else {print FICHIER_RESTES_B "$_"};
}
} 
} 

close FICHIER_BANQUE_DE_MOTS_A;
close FICHIER_BANQUE_DE_MOTS_B;
close FICHIER_RIMES_O;
close FICHIER_RIMES_AIL;
close FICHIER_RIMES_AN;
close FICHIER_RESTES_A;
close FICHIER_RESTES_B;

Voici les deux fichiers de données que j'ai utilisés.

banque_a.txt

aloyau
an
artichaut
attirail
avant
avoir

banque_b.txt

barreau
bataille
bateau
blanc
boire
bordereau

Le programme fonctionne bien. Cependant, je veux l'appliquer à 26 fichiers (a à z).

Au lieu d'utiliser 26 boucles WHILE, je voudrais en avoir une seule dans laquelle je changerais le nom du pointeur. Ce serait beaucoup plus court. Mais surtout, si je dois apporter une modification dans la boucle, j'évite de le faire dans les 25 autres ...

Ainsi :
FICHIER_BANQUE_DE_MOTS_A deviendrait FICHIER_BANQUE_DE_MOTS_B puis deviendrait FICHIER_BANQUE_DE_MOTS_C ...

De même le pointeur FICHIER_RESTES_A deviendrait FICHIER_RESTES_B ... etc ...

Est-ce qu'il est possible de changer le nom d'un pointeur dans une boucle?

Je pourrais utiliser des chiffres au lieu de lettres. Je peux changer FICHIER_RESTES_A en FICHIER_RESTES_1 si ça simplifie les choses.

Merci