sub xx {
my $var1 = shift;
my $var2 = shift;
...

##</code><code>##

sub xx {
my ($var1,$var2) = @_;
...