Perl：サブルーチンをOptionalみたいに異なる引数で呼びたい

（問）
１、２、３を渡すと６が返ってくる
１、２を渡すと３が返ってくる

hoge.pl

use strict;
use warnings;
use utf8;
use 5.014;

my $result;

# 引数３つ
$result = hoge(1, 2, 3);
print $result, "\n"; # result = 6

# 引数２つ
$result = hoge(1, 2);
print $result, "\n"; # result = 3

sub hoge {
    my ($a, $b, $c) = @_;

    my $result = 0;
    $result += $a if defined $a;
    $result += $b if defined $b;
    $result += $c if defined $c;

    return $result;
}

1;

@_ は受け取った引数を順番に格納していく
引数を無作為にしたい場合や変数名を指定したい場合は使えない

Maybeを使った方法もある