or download this
[foulquie@node6 test]$ perl test_fontion4.pl BC list_geno_palm_51_list
+e_genotype test 30 1
Use of my $_ is experimental at test_fontion4.pl line 44.
...
genotype13
Can't use string ("BC13_IV_.RG") as a HASH ref while "strict refs" in
+use at test_fontion4.pl line 92, <RESULTAT> line 2.