[Perl] 配列・ハッシュが空かを調べる

配列・ハッシュが空かを調べる。
普通に if で。defined ではダメです。
※defined はスカラーにのみ有効。

my @array = ();
my %hash  = ();
if (@array) {
    # not empty
}
if (%hash) {
    # not empty
}

[参考] http://perldoc.jp/docs/perl/5.8.8/perldiag.pod