123456789101112131415161718192021222324
#!/usr/bin/perluse Benchmark qw(cmpthese);cmpthese(-1, { hashsmall => sub { my $x = {1 => "a", }; }, hashlarge => sub { my $x = {1 => "a", 2 => "b", 3 => "c", 4 => "b", 5 => "c", 6 => "b", 7 => "c", 8 => "b", 9 => "c", 10 => "c", }; }, } );