# build an array of arrays for BCP to upload &bcpInsert("custdata", \@data); print "Upload complete\n";