perl -MO=Deparse -p -e '@values = sort arraynosort( Values => \@orig_values );'