while (<$mapIn>) {
    next unless /^(\w+)\s+(\w+)/ and exists $snpLookup{$1};
    print "$1    $2\n";
}