use Sort::Fields;
my @sorted = fieldsort ['-8n'], @array;