while (<DATA>) {
($name[$b],$address[$b],$city[$b],…) = split /\,/,$_;
etc...
$b++;
}

##</code><code>##

@varnames =(‘name’,’address’,’city’,…)