duktape/tests/perf/test-prop-read.pl

sub test {
    my %obj = ( 'xxx1' => 1, 'xxx2' => 2, 'xxx3' => 3, 'xxx4' => 4, 'foo' => 123 );
    my $i;
    my $ign;

    for ($i = 0; $i < 1e8; $i++) {
        $ign = $obj{'foo'};
    }
}

test();