perl -E 'my $e; say for $e && 0, $e->[0];'