while(<$fh>){
 ...
}