foreach my $rec (@CUSTDATA)
{
   my @row;
   chomp $rec;
   @row = split(/,/,$rec,14);
}