ken@ganymede: ~/tmp
$ perl -Mstrict -Mwarnings -E 'my $x = 1 ? 1 : 0; say $x;'
1
ken@ganymede: ~/tmp
$ perl -Mstrict -Mwarnings -E 'my $x; 1 ? $x=1 : $x=0; say $x;'
0
ken@ganymede: ~/tmp
$ perl -Mstrict -Mwarnings -E 'my $x; 1 ? ($x=1) : ($x=0); say $x;'
1
ken@ganymede: ~/tmp
$