Select Code to Download

use Scalar::Util 'dualvar';

...
}
# output array of dualvars; sorted by number, string
print "$_\t".(0+$_)."\n" for sort { $b <=> $a } sort @data;

# llil2.pl sort + output : 19 secs
# llil3.pl sort + output : 16 secs -- dualvar