水原 麗名さま,お返事ありがとうございます。

#0859(水原 麗名氏)の書き込みを引用します:
＞if ($key =~ /^c/){ #他にnameの最初がcで始まるものがないように。
＞push @c , $val; #変数の名前は適宜変えて。
＞}else{
＞$param{$key} = $val;
＞}
＞の様にして@cの要素数に応じて処理を変える。
＞これでどうでしょう。

これをもとに，多少改良してなんとか完成にまで持ちこめました。
水原 麗名さま・わかやま神さま，お二人のおかげで
何とか少しは汎用性のあるものにさえ出来ました。
本当にありがとうございました。
(それと，いつもおかしい日本語書いててすいません(汗))