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