sub NAME {
  EXPR;
  EXPR;
}
sub NAME (PROTO) {
  EXPR;
  EXPR;
}
if (EXPR) { EXPR }

##</code><code>##

if (EXPR) {
  EXPR
}
else {
  EXPR
}

##</code><code>##

foo(1,2,3);
bar({
  a => $str,
  b => $trs,
});