Select Code to Download

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

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