if (/^(\w*) (\d+.*)$/) {
    unless (exists($lookup{$1}) && ($lookup{$1} eq $2)) {
      print F1, $_;
    }
  }
  } else {
    warn "Invalid input line $.: $_\n";
  }