我很难理解为什么以下的作品：
my $array_reference;
foreach $element (@{$array_reference}) {
# some code
}
而以下则不起作用
my $array_reference;
if (scalar (@{$array_reference}) {
# some code here
}
解决方法
Dereferences在左值上下文中自动化(意味着预期可修改的值)，并且foreach创建一个左值上下文。
>perl -E"$$x = 1; say $x;"
SCALAR(0x74b024)
>perl -E"++$$x; say $x;"
SCALAR(0x2eb024)
>perl -E"\$$x; say $x;"
SCALAR(0x30b024)
>perl -E"sub {}->($$x); say $x;"
SCALAR(0x27b03c)
>perl -E"for ($$x) {} say $x;"
SCALAR(0x25b03c)
最后两个创建一个左值上下文，因为它们需要一个值分配给别的$ _ [0]和$ _(分别)。