foreach $rec ( @CUSTDATA ) {
  chomp $rec;
  my @data = split /,/, $rec;
  if ( @data > 14 ) {
    warn "Record $. has too many fields - skipping: $rec\n";
    next;
  }
}