Help for this page

Select Code to Download

Select or download this

foreach ($cgi->param()) {
   if (/^year_\d+$/) {
      push(@years, $cgi->param($_));
   }
}

Select or download this

@years = map { $cgi->param($_) }
         grep { /^year_\d+$/ }
         $cgi->param();