HTMLエスケープ用のルーチンをライブラリに作ってありました。
ずっと昔のライブラリです。

$a = hoge::escape_h($a);
@a = hoge::escape_h(@a);
%a = hoge::escape_h(%a);
$a = hoge::escape_h($a); #scalarref
$a = hoge::escape_h($a); #arrayref
$a = hoge::escape_h($a); #hashref

でも全てうまく行くようにしたいのです。
用は引数がスカラか配列かハッシュか、リファレンス（どのタイプか）なのかを
チェック入れてif分岐でもすればいいとおもいますが、どうやってチェックするのか。
そこで行き詰ってます。宜しくお願いします。