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