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