Select Code to Download

#!/usr/bin/env perl

...

    map { print join(q{ } => @$_), qq{\n} } sort { $b->[3] <=> $a->[3]
+ } @record;
}

dove-n mero head-n 0.541972342596793
dove-n mero plume-n 0.164895598193776
...
cockroach-n random-v land-v 0.0149882471117093
cockroach-n random-v suggest-v 0.0148588863336517
cockroach-n random-v guarantee-v 0.00591007188858908

... sort { $a->[3] <=> $b->[3] } ...