#!/usr/bin/perl    
use strict;    
use warnings;

my %genes = (AD4 => "Alzheimer’s disease",
	  BRCA1 => "Breast Cancer",
	  DMD  => "Duchenne Muscular Dystrophy",
         FMR1 => "Fragile X Syndrome",
         GBA => "Gaucher’s Disease");

print "Saisir un  nom de gène\n";
my $essai = <STDIN>;
chomp($essai);
$essai =~ /^[A-Z]+\d?$/   or die ("format incorrect");

my $rep;
for (keys(%genes)){
    if($_ eq $essai){
	$rep = $genes{$_};
    }
};
if ($rep eq ''){
    print "le gène entré n’est pas dans la table.\n";
}
else{
    print "$rep \n";
}
