仕事で使ったのでメモ。 use Benchmark ':all'; my $testtimes = 999; my $looptimes = 99999; sub test1 { my $a = ''; foreach my $buf (0..$looptimes) { $a .= 'abcdefghijklmnopqrstuvwxyz'; } } sub test2 { my $a = ''; my @list = (); foreach my $b…