$ perl -Mstrict -Mwarnings -E 'my $x; ($x = 1) = 0; say $x;'
0