foreach $rec (@CUSTDATA) {
	chomp $rec;
	my ($var1, $var2, $var3, $var4, $var5, $var6, $var7, 
            $var8, $var9, $var10, $var11, $var12, $var13, $var14) = split(/,/,$rec);
}