sub mysub {
my a = shift; #1
my $b = shift; #2
... and so on