W
Size: a a a
W
P
W
W
SZ
P
W
W
P
W
SZ
use Benchmark "cmpthese";
my %enclose = qw/ ( ) { } [ ] < >/; sub enclose { $_[0] . $_[1] . ( $enclose{$_[0]} // $_[0] ) }
my $i; sub increment { $i++ }
cmpthese(10**7, {enc => sub {enclose "[" => "foo"}, inc => sub {increment}});
P
P
W
SZ
W
SZ
W
W
SZ