use strict;
use locale;

my %defectif = ("ail" => "aulx", "ciel" => "cieux", 
		"oeil" => "yeux");

print "Entrer un nom commun masculin singulier : ";
my $nom = <STDIN>;
chomp $nom;

my $pluriel;
if ( defined( $defectif{$nom} ) ) {
    $pluriel = $defectif{$nom};
}
else {
    $pluriel = $nom . "s";
}

print "Les flexions de \"", $nom, "\" sont :\nun ", $nom, 
    "\ndes ", $pluriel, "\n\n";