>perl -wle"$r=[]; print eval { %$r || 1 }


##</code><code>##

>perl -wle"$r=[]; print scalar(() = eval { %$r || 1 });
0