Xのリファレンスかどうかの判定はどう考えればいいんだろう。とりあえず配列リファレンスで考えてみる。 まず，基本的な考え方は以下の4つだと思う。 use Scalar::Util qw(reftype); ref($x) eq 'ARRAY'; # 1 reftype($x) eq 'ARRAY'; # 2 ref($x) eq 'ARRAY…