Help for this page

Select Code to Download

Select or download this

[section start marker (shift-opt-5)] [some line of text]
entry \(frequency data\)
entry \(frequency data\)
…

[section start marker (shift-opt-5)] [and the pattern repeats]

Select or download this

sub two_way_sort {
    ($b =~ /\((\d+)/)[0] <=> ($a =~ /\((\d+)/)[0]
        ||
...
}

my @sorted = sort two_way_sort @unsorted_input;