sub foo {
   my ( $x, $y ) = @_;
   # ...
}