#0856(わかやま神氏)の書き込みを引用します:
＞if (defined $param{'text'}) {
＞  $text = ("$param{$key}");
＞}

この部分は、
${$key} = $val;
で動きます。（PERL５限定）