#/usr/bin/perl
open(FILEOUT, ">Conjugueur.txt"); 
print "Veuillez saisir un verbe du 1er groupe que vous voulez conjuguer\n";
my  $verbe = <STDIN>;
chomp $verbe;
%conjugueur=("je", "e", "tu", "es", "il", "e", "nous", "ons", "vous", "ez", "ils", "ent");
if ($verbe=~/(.+)er/){
	$racine=$1;
}
# imprime la conjugaison mais ne respecte pas l'ordre des pronoms
while ( ($pronom, $terminaison) = each (%conjugueur)){
	print FILEOUT"$pronom $racine$terminaison\n";
}
print FILEOUT"\n";
# imprime la conjugaison mais selon l'ordre alphabétique des pronoms
foreach $pronom ( sort keys(%conjugueur) ) {
  print FILEOUT "$pronom $racine$conjugueur{$pronom}\n"
}
close FILEOUT;