I'm afraid your seond implicitly assigend $_ overwrites the first one. You could try this:

sub change_punch_process
   {
      my %numbers;
      foreach (my $par = $q->param )
      {
         $numbers{$1}++ if /^([0-9]+)/;
      {
   }
# now you can get all your numbers with keys %numbers
[download]

--
Cheers, Joe