while (<DATA2>)
  {
      $line=<DATA2>;