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

##</code><code>##

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