Select Code to Download

%genotype=($1=>$2,);

use Data::Dumper;
print Dumper(\%genotype);

$genotype{$1} = $2;