>perl -Mstrict -wle"my $r; my @x; for(@$r){} print $r"
ARRAY(0x225280)

>perl -Mstrict -wle"my $r; my @x; sub{}->(@$r); print $r"
ARRAY(0x225280)