<%INIT> my $array = []; if (%{ $array } ) { # <-- intentional error warn "what"; }