Select Code to Download

my $string = "AAATTTAGTTCTTAAGGCTGACATCGGTTTACGTCAGCGTTACCCCCCAAGTTATT
+GGGGACTTT";
my %expect = qw( CCCCCC 1 GGGG 1 AAA 1 TTT 3 AA 2 GG 2 TT 5 );
...
cmpthese (-2, { map {( $_ => $f{$_} )} @v });

done_testing;

$ test.pl 1
ok 1 - v1
...
v6 105700/s 153%  76%  38%  20%   8%   6%   --  -6%
v8 112783/s 170%  88%  47%  28%  15%  13%   7%   --
1..8

$ test.pl 20
ok 1 - v1
...
v6 5934/s 155%  81%  34%  22%  14%  11%   -- -10%
v8 6604/s 184% 101%  49%  36%  27%  23%  11%   --
1..8

$ test.pl 2000
ok 1 - v1
...
v6 59.2/s 178%  81%  39%  27%  13%  10%   -- -11%
v8 66.3/s 212% 103%  56%  42%  26%  23%  12%   --
1..8