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