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