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

##</code><code>##

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