my $result =[l] calc(30,20,"FooBar");
 my $result2 =[l] calc($result,20,"YoYo");
 my $result3 = $result + $result2;