Help for this page
sub xx { my $var1 = shift; my $var2 = shift; ...
sub xx { my ($var1,$var2) = @_; ...