Help for this page
use strict; use warnings; ... /^(\w+)\s+(\w+)/ and exists $snpLookup{$1} and print "$1 $2\n" while <$mapIn>; close $mapIn;
rs7837688 NP_817124 rs10499549 ZMYND11 rs3749375 ZMYND11