foreach $rec (@CUSTDATA) {