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