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