perlの質問してた人はいないのか？
とりあえず
 $aaa = $fh{$_[0]};
 print $aaa $_[1];
こんな感じにすれば動くよ
よくわからんがハッシュだとｵﾍﾟﾚｰﾀｰに制約でもあるのかな？