sub MySub($$;$) {
my ($a,$b,$c) = @_;
print "$a $b $c";
return 1;
}
...
MySub(1);