perlなんだけど(;´Д`)ハッシュに関数名入れて動的に描画関数読んでるんだけど
1行書く方法で下以外でない？

$Main->${\"$func{$name}"}();