my $mentioned = 0;
FILE: for my $file ( @files ) {
  LINE: for my $line ( @lines ) {
    /Joe Bloggs/ and ++$mentioned and last FILE;
  }
}
return $mentioned;