for ($i=0; $i<$Num_of_Files; $i++) {
open(Read, $file[$i]);
@Read = <Read>; 
...}