my @vars = split(/\s*,\s*/,$rec);