while(<DATA>) {
     ($var1, $var2, ...) = split(/,/);
     ...
}