sub x {
    my $p = shift;
    for( my $i = 0; $i < 42; $i++ ) {
        $p->[$i]->{'soekey'} = 'some_value';
    }
}