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