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