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