....
@varnames=('name','affiliation','email','radio','geometric');
for (@varnames){$$_=param($_)};
....