sub foo($n=5, $m=8) {
    say('---');
    say($n);
    say($m);
    return $n+$m*2;
}

say(foo(4, 7));
say(foo(3));
say(foo());

__END__
---
4
7
18
---
3
8
19
---
5
8
21