$REC     = $_;
      @LINEREC = split(/\,/,$REC);
      $data1 = @LINEREC[0];