% for ( my $row = 0; exists($param->{"description$row"}); $row++ ) {
% push @description, $param->{"description$row"};
% }
% for ( my $row = 0; exists($param->{"description$row"}); $row++ ) {
% push @description, $param->{"description$row"};
% }
%
% $param->{"custnum"} =~ /^(\d+)$/
% or $error .= "Illegal customer number " . $param->{"custnum"} . " ";
%
% $param->{"custnum"} =~ /^(\d+)$/
% or $error .= "Illegal customer number " . $param->{"custnum"} . " ";