$ perl -E 'my $x; $x = (0,1)[!!$x]; say $x'
0

$ perl -E 'my $x = ""; $x = (0,1)[!!$x]; say $x'
0

$ perl -E 'my $x = "X"; $x = (0,1)[!!$x]; say $x'
1