foreach $ARGV (@ARGV) {
    open( THISFILE, $ARGV ) || next;
    while( $_ = <THISFILE> ) {
    }
  }