Help for this page

Select Code to Download

Select or download this

my $string = 'AAATTTAGTTCTTAAGGCTGACATCGGTTTACGTCAGCGTTACCCCCCAAGTTATT
+GGGGACTTT';

...
for my $k (sort keys %max) {
    print"$max{$k} ", $k x $max{$k}, "\n";
}

Select or download this
```
3 AAA
6 CCCCCC
4 GGGG
3 TTT
```