open(MYFILE, $file[$i]) 
  or die qq(Cannot open $file[$i] : $!\n);