...
  if ($x =~ m/^Patient/) {
    print STDERR "Patient found\n";  #added for verification
    last WID;
  }
  ...