$REC     = $_;
   @LINEREC = split(/\,/,$REC);