if ( m/(\S+),(\S+),(\S+),(\S+),(\S+),(\S+)/o )
  {
  @fields        = split(/,/);
  $CLI           = $fields[0];
  $key           = $fields[1];
  $product       = $fields[2];
  $quantity      = $fields[3];
  $price         = $fields[4];
  $salesdate     = $fields[5];
  }