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, { v1 => \&v1, v2 => \&v2, v3 => \&v3, v4 => \&v4, v5 => 
+\&v5 });

done_testing;

ok 1 - v1
ok 2 - v2
...
v4 95919/s 128%  60%  10%   --  -3%
v5 98685/s 135%  65%  13%   3%   --
1..5