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