my $a = sub { return $_[0] + $_[1]; };
print $a->(3, 5);