my $foo = 0;
my $baz = 0;
my $bar = $foo ? 1 : ($baz ? 4 : 2);
print $bar;