$ perl -E'$tp=1; say "[", !$tp, "]";'
[]

$ perl -E'$tp=1; say "[", $tp ? 0 : 1, "]";'
[0]