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

##</code><code>##

sub addKeyValue
{
   ($key, $value} = @_;
   push @{${$self->{$hash}}{$key}}, $value;
}