my $x = 1; if ($x) { f(); # f() is the last expression evaluated. } else { g(); } #### my $x = 0; if ($x) { f(); } else { g(); # g() is the last expression evaluated. } #### my $x = 0; if ($x) { # $x is the last expression evaluated. f(); } #### my $x = 0; if ($x == 1) { f(); } elsif ($x == 2) ( # $x==2 is the last expression evaluated. g(); }