foreach $file(@file){
open(MYFILE, $file[$i]) or die qq(Cannot open $file[$i]\n);
	my $line = <MYFILE>;
	while ($line ne "") {
    	#******* do grep here *******#
        }
    }	
    $i++;
}