Help for this page
@values = sort {},arraynosort(Values=>\@orig_values);
@values = sort { $a cmp $b } arraynosort(Values=>\@orig_values);
@values = sort +arraynosort(Values=>\@orig_values);