undef は想像以上に柔軟でした。 以下のエラーは知っていたのです。 $ perl -Mstrict my $hoge = undef; print join(',', @$hoge); Can't use an undefined value as an ARRAY reference at - line 2. でも、以下がwarningすら出ないのは意外。 $ perl -Mstr…