for $i (1..100) { $r=C($i); print $r."\n" } use Inline C => <<'C_CODE'; int C (int i) { Inline_Stack_Vars; return i; Inline_Stack_Void; } C_CODE