Define a Subroutine with Args within Embperl

1,2-> a=1 b=2 3,4-> a=3 b=4 1,2-> c=1 + 2 = 3 3,4-> c=3 + 4 = 7 1,2-> a=1 b=2 c=-1 3,4-> a=3 b=4 c=-1

Ok.