sub my_sub {
   my ($arg1, $arg2, $opt_arg1, $opt_arg2) = @_;

   $opt_arg1 = default if @_ < 3;
   $opt_arg2 = default if @_ < 4;

   ...
}