sub change_punch_process
   {
      my @numbers;

      foreach ( $q->param )
      {
         if (/^([0-9]+)/)
         {
            foreach (@numbers)
            {
               unless ($_ == $1)
               { push @numbers,$1; }
            }
         }
      }
}