sub foo {
    my $x = shift;
    my $y = shift;
    # ...
}