open(FIL,$file); 
while(<FIL>){dosomething()}