use strict;
use warnings;
use utf8;

## 定義
my $subref = sub {
    my ($left, $right) = @_;
    return $left + $right;
};

print $subref->(1, 2), "\n"; ## 呼び出し
print $subref->(3, 4), "\n"; ## 呼び出し