sub foo {
  my ($bar, $baz, $troz) = @_;
  ...
}