my $a = 5;
foo(0, $a+1, 2, $a+3);