sub x {
    my $p = shift;
    foreach my $x ( @{$p} ) {
        $$x{'soekey'} = 'some_value';
    }
}