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