[PERL]-Problème "for if elsif" en menu

Bonjour,

j'ai créé une petite structure de menu en PERL, mais j'ai un souci lors de la saisie d'un choix avec 2 chiffres, il ne me prend que le dernier et va donc au menu correspondant, pas à celui que je voudrais (ex : je saisis 98, il va au choix 8, 97 ->7)

Une explication/correction ?

Merci d'avance.

while ($SAISIE != 99)
{
    print "\t\t\t\tPool en cours : ".$TAB_POOL[$SAISIE_POOL][0]."\n";
    print "\t\tProchains jours ouvrés : ".$JO1D." ".$JO1J."/".$JO1M."/".$JO1A." et ".$JO2D." ".$JO2J."/".$JO2M."/".$JO2A."\n";
    print " 1 - \n";
    print " 2 - \n";
    print " 3 - \n";
    print " 4 - \n";
    print " 5 - \n";
    print " 6 - \n";
    print " 7 - \n";
    print " 8 - \n";
    print "99 - Sortie\n";
    print "\nVotre choix -> ";
    $SAISIE = <STDIN>;
    chomp($SAISIE);
    print "#".$SAISIE."#\n";
    for ($SAISIE)
    {
        if (/1/)
        {
                print $I."-".$TAB_POOL[$I][0]."\t";
        }
        elsif (/2/)
        {
            ListeCart();
        }
        elsif (/3/)
        {
            # $IG est l'indice à partir duquel commencent les noms de groupes dans le tableau
            $I = $IG;
        }
        elsif (/4/)
        {
            print "Constitution de la liste des cartouches\n";
        }
        elsif (/5/)
        {
            print "Marche pôô!\n";
        }
        elsif (/6/)
        {
            $I = $IG;
            print "\n";
        }
        elsif (/7/)
        {
            for $I (0..$NB_ELEM-1)
            {
                print $LIST."\n";
            }
        }
        elsif (/8/)
        {
            for $I (0..$NB_ELEM-1)
            {
                print $LIST."\n";
            }
        }
        elsif (/98/)
        {
            print "Forçage\n";
        }
        elsif (/99/)
        {
            die "Fin\n";
        }
    }
}