Select Code to Download

use Sort::Key 'ukeysort_inplace';
my $digits = 8;
...
  $a =~ tr/ 0123456789/0123456789a/;
  hex $a
} @array;