You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

20 lines
429 B

sub test {
my %obj = ( 'xxx1' => 1, 'xxx2' => 2, 'xxx3' => 3, 'xxx4' => 4, 'foo' => 123 );
my $i;
for ($i = 0; $i < 1e7; $i++) {
$obj{'foo'} = 234;
$obj{'foo'} = 234;
$obj{'foo'} = 234;
$obj{'foo'} = 234;
$obj{'foo'} = 234;
$obj{'foo'} = 234;
$obj{'foo'} = 234;
$obj{'foo'} = 234;
$obj{'foo'} = 234;
$obj{'foo'} = 234;
}
}
test();