sub foo {
  my ($a, $b, $c, $d) = @_;
  ...;
}