my @fileData = <FILE>;
foreach my $fileLine (@fileData) {

##</code><code>##

open (DATA, "grep <string> <file-list> |");
while (<DATA>) {