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

##</code><code>##

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

##</code><code>##

$genotype{$1} = $2;