sub change_punch_process
{
   my %transactions;
   my @numbers;


   foreach (sort ($q->param))
   {
      if (/^([0-9]+)/)
      {
        push (@numbers,$1) unless grep /\b$1\b/, @numbers;
      }
   }
print "<br><br>@numbers";
}