Select Code to Download

my @sorted =
    sort {
...
       $count_a <=> $count_b
    }
    @sequences;

my @sorted =
    map substr($_, 4),
    sort
    map pack('N', tr/GC//) . $_,
    @sequences;