&verarbeiten(\@programm_interne_params, \%CGI_params);
sub verarbeiten {
   my $args = shift;
   for (%{$args->[1]}) {
      #verarbeiten
   }
}