#0854(うはく氏)の書き込みを引用します:
＞水原 麗名さま・わかやま神さま，お返事ありがとうございますにゃ。(^_^)マネ
＞今年も宜しくお願い致します。
＞お二人にはお世話になってばかりなのですが…(大汗)

とんでもございませんm(__)m
こちらこそお世話になってばかりで…(超大汗)

***** 省略 *****

＞すると，もし果物を４つ選択した場合には４つめの果実に呼応する値が
＞理由を受け取りたい変数に間違って入ってしまいます。

こんなのどーでしょう？
「個々のパラメータに分割して、さらにパラメータ名と値に分割。URLエンコードの復元とタブコードを削除して、それらの漢字コードを統一」
も含んでいますが。（ふぅ、疲れた・・・）

read(STDIN, $all, $ENV{'CONTENT_LENGTH'});
foreach $data (split(/&/, $all)) {
  ($key, $val) = split(/=/, $data);
  $val =~ tr/+/ /;
  $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C',hex($1))/eg;
  $val =~ s/\t//g;
  &jcode'convert(*val, 'sjis');
  $param{$key} = $val;

if (defined $param{'text'}) {
  $text = ("$param{$key}");
}
else {
  それ以外ならこーする;
}

if文でパラメータが「text」なら理由項目なので、
変数[$text]に値を取得する。てな具合です。

それ以外ならこーするは・・・どーすればいいんでしょ？(^_^;)