process(*IN);
    sub process {
      *FH = shift;
      while( <FH> ) {
          ....
      }
    }