[foulquie@node6 test]$ perl test_fontion4.pl BC list_geno_palm_51_liste_genotype test 30 1
Use of my $_ is experimental at test_fontion4.pl line 44.
Use of my $_ is experimental at test_fontion4.pl line 68.
keys on reference is experimental at test_fontion4.pl line 187.
keys on reference is experimental at test_fontion4.pl line 211.
keys on reference is experimental at test_fontion4.pl line 235.
keys on reference is experimental at test_fontion4.pl line 259.
$VAR1 = {
          'genotype13' => {
                            'sample' => 'BC13_IV_.RG'
                          },
          'genotype11' => {
                            'sample' => 'BC11_III_.RG'
                          },
          'genotype14' => {
                            'sample' => 'BC14_III_.RG'
                          },
          'genotype16' => {
                            'sample' => 'BC16_III_.RG'
                          },
          'genotype21' => {
                            'sample' => 'BC21_V_.RG'
                          },
          'genotype24' => {
                            'sample' => 'BC24_IV_.RG'
                          },
          'genotype1' => {
                           'sample' => 'BC1_IV_.RG'
                         },
          'genotype10' => {
                            'sample' => 'BC10_III_.RG'
                          },
          'genotype23' => {
                            'sample' => 'BC23_III_.RG'
                          },
          'genotype9' => {
                           'sample' => 'BC9_IV_.RG'
                         },
          'genotype8' => {
                           'sample' => 'BC8_IV_.RG'
                         },
          'genotype4' => {
                           'sample' => 'BC4_II_.RG'
                         },
          'genotype22' => {
                            'sample' => 'BC22_IV_.RG'
                          },
          'genotype20' => {
                            'sample' => 'BC20_IV_.RG'
                          },
          'genotype15' => {
                            'sample' => 'BC15_III_.RG'
                          },
          'genotype7' => {
                           'sample' => 'BC7_IV_.RG'
                         },
          'genotype6' => {
                           'sample' => 'BC6_IV_.RG'
                         },
          'genotype3' => {
                           'sample' => 'BC3_III_.RG'
                         },
          'genotype12' => {
                            'sample' => 'BC12_IV_.RG'
                          },
          'genotype19' => {
                            'sample' => 'BC19_IV_.RG'
                          },
          'genotype17' => {
                            'sample' => 'BC17_V_.RG'
                          }
        };
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.