$1 mit $schritte++; oder so

[Beat]

Nun müsste ich alle Variablen

$name = $cgi->param('name');
$in{'name'} =$name;

$vorname = $cgi->param('vorname');
$in{'vorname'} =$vorname;

alle kontrollfelder und alle weiteren Befehle wie oben umprogrammiern.
Der read parse von de 80 ern funktioniert  nicht mit  $cgi->param

foreach( $cgi->param ){
  push @{ $in{$_} }, $cgi->param($_);
}

oder besser, bei bereits vordefinierten keys in %in

foreach( keys %in ){
  if( $cgi->param($_) ){
    push @{ $in{$_} }, $cgi->param($_);
  }
}

Diese Kopiererei halte ich für sinnleer, es sei denn, es ist damit auch eine Validierung verbunden, wie ich sie in einem früheren Post beschrieben habe.

mfg Beat