for (int i = 0; i < 10; i++)
{
...
perl_call_pv("PerlCode::addKeyValue", G_EVAL|G_SCALAR);
...
}