sub f {
   my ($arg1,$arg2,$arg3) = @_;
   .... uses arg1, arg2 arg3 ....
}

f();        # Works. ($arg1, $arg2 and $arg3 are undef.)
f(1,2,3,4); # Works. ('4' is ignored.)