my $outFile = q{/home/btobin/data3.txt};
open my $outFH, q{>>}, $outFile
   or die qq{open: $outFile: $!\n};

while ( <$dataFH> )
{
    print $outFH qq{Found name $_\n} if /($namesPatt)/;
}

close $outFH
   or die qq{close: $outFile: $!\n};