sub foo { my ($a, $b, $c) = @_; if ($a == 1) { # Do something } else { # Do something else } }