- or download this
$VAR1 = {
'HES4' => '57801',
...
'SAMD11' => '148398',
'NOC2L' => '26155'
};
- or download this
while(<DATA>){
chomp;
my ($key, $value) = split;
$gene{$key} = $value; # choroba's suggestion
}
- or download this
$VAR1 = {
'HES4' => '57801',
...
'SAMD11' => '148398',
'NOC2L' => '26155'
};