Q:\>perl -MO=Deparse -E "my $e; say for $e && 0, $e->[0];"
BEGIN {
    $^H{'feature_unicode'} = q(1);
    $^H{'feature_say'} = q(1);
    $^H{'feature_state'} = q(1);
    $^H{'feature_switch'} = q(1);
}
my $e;
;
say $_ foreach ($e && 0, $$e[0]);
-e syntax OK