$VAR1 = {
'HES4' => '57801',
'TMEM52' => [
'339456'
],
'SSU72' => [
'29101'
],
'GNB1' => [
'2782'
],
'PLEKHN1' => '84069',
'NCRNA00115' => '79854',
'ATAD3A' => [
'55210'
],
'ATAD3B' => [
'83858'
],
'SLC35E2' => [
'9906'
],
'SAMD11' => '148398',
'NOC2L' => '26155'
};
####
while(){
chomp;
my ($key, $value) = split;
$gene{$key} = $value; # choroba's suggestion
}
##
##
$VAR1 = {
'HES4' => '57801',
'TMEM52' => '339456',
'SSU72' => '29101',
'GNB1' => '2782',
'PLEKHN1' => '84069',
'NCRNA00115' => '79854',
'ATAD3A' => '55210',
'ATAD3B' => '83858',
'SLC35E2' => '9906',
'SAMD11' => '148398',
'NOC2L' => '26155'
};