x.nqp

class C {
    has $!a;
}

sub foo() {
    my $c := nqp::create(C);
    nqp::bindattr($c, C, '$!a', 42);
    nqp::getattr($c, C, '$!a');
}

my int $i := 0;
while $i++ < 10_000_000 {
    foo();
}