use strict;
use locale;

my @pronom = ("je", "tu", "il/elle", "nous", "vous", "ils/elles");
my @groupe1 = ("e", "es", "e", "ons", "ez", "ent");
my @groupe2 = ("is", "is", "it", "issons", "issez", "issent");

print "Entrez le radical d'un verbe du 1er ou du 2e groupe : ";
my $radical = <STDIN>;
chomp $radical;

print "Quel est le groupe du verbe (1/2) ? ";
my $groupe = <STDIN>;
chomp $groupe;

my @flexion;
my $infinitif;
if ($groupe == 1) {
    $infinitif = $radical . "er";
    @flexion = @groupe1;
}
elsif ($groupe == 2) {
    $infinitif = $radical . "ir";
    @flexion = @groupe2;
}
else {
    die "Ce programme ne traite que les 1er et 2e groupes.\n";
}

print "Les formes du verbe \"", $infinitif, 
    "\" au présent de l'indicatif sont :\n"; 
for ( my $i = 0 ; $i <= 5 ; $i++ ) {
    print $pronom[$i], " ", $radical, $flexion[$i], "\n"; 
}