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

##</code><code>##

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

##</code><code>##

        my ( $sourcefile, $removeq )= @_;

##</code><code>##

my ( $removeq ) = @_;