# ...
while (<$INPUT>) {
     print $OUT if /God/ or /David/ or /Mary/ or /Jesus/;
     # could also be written: print $OUT if /God|David|Mary|Jesus/;

##</code><code>##

IN: while (<$INPUT>) {
     my @words = split /\b/, $_;
     foreach my $word (@words) {
          print $_ and next IN if exists $name_hash{$word};
     }
}