my %vars; for (1 .. 10) { $vars{"var$_"} = $query->param("var$_"); }