Select Code to Download

use strict;
use warnings;
...

$Data::Dumper::Sortkeys = 1;
print Dumper \%count;

use strict;
use warnings;
...
}

print $A1, $A2, $A3, $T1, $T2, $T3, $C1, $C2, $C3, $G1, $G2, $G3;