Select Code to Download

use strict;
use warnings;

...
}

print join "", sort { compare($a, $b) } split //, "abcde";

$ perl test.pl
a: 0.876941476789401; b: 0.5
c: 0.0768385185833438; d: 0.5
...
a: 0.746254431212112; d: 0.5
b: 0.648884088019244; e: 0.5
ebcda