# Perl 5
sub foo {
  my $a = shift;
  ...;
}