$a->{RECNO} <=>  $b->{RECNO}

##</code><code>##

$a->{DICTFOLD} cmp  $b->{DICTFOLD}

##</code><code>##

word
Word
word
Word

##</code><code>##

word
word
Word
Word

##</code><code>##

$a->{ORIGINAL} cmp $b->{ORIGINAL}