Select Code to Download

#!/software/bin/perl

...
    return ($caveman_list);
}

$VAR1 = {
          '42-MG-BA' => [
...
                            'position' => '9561557',
                            'genotype' => 'G'
                          },

$VAR1 = {
          '42-MG-BA' => [
...
                            'position' => '158773936',
                            'genotype' => 'AA'
                          },

foreach my $sam  (keys % {$geno_seq_list} ) {
        my $seq_used = $geno_seq_list->{$sam};
...
        #    }    
        }
}