$ perl -Mstrict -Mwarnings -MData::Dumper -e ' > my %gene = ( > NCRNA00115 => 79854, > SAMD11 => 148398, > N0C2l => 26155, > PLEKHN1 => 84069, > HES4 => 57801, > ); > print Data::Dumper->Dumpxs( [ \ %gene ], [ qw{ *gene } ] ); > > open my $newFH, q{<}, \ < $!\n}; > ATAD3B 83858 > ATAD3A 55210 > SSU72 29101 > SLC35E2 9906 > GNB1 2782 > TMEM52 339456 > EOD > > my( @newKeys, @newValues ); > my $iter = 0; > push @{ ++ $iter % 2 ? \ @newKeys : \ @newValues }, $_ for > map { split } > <$newFH>; > > @gene{ @newKeys } = @newValues; > print Data::Dumper->Dumpxs( [ \ %gene ], [ qw{ *gene } ] );' %gene = ( 'HES4' => 57801, 'N0C2l' => 26155, 'PLEKHN1' => 84069, 'NCRNA00115' => 79854, 'SAMD11' => 148398 ); %gene = ( 'HES4' => 57801, 'TMEM52' => '339456', 'SSU72' => '29101', 'GNB1' => '2782', 'PLEKHN1' => 84069, 'NCRNA00115' => 79854, 'ATAD3A' => '55210', 'N0C2l' => 26155, 'SLC35E2' => '9906', 'ATAD3B' => '83858', 'SAMD11' => 148398 ); $