say $_->{PHRASE} for sort {
    $b->{TOTAL_VOWELS} <=>  $a->{TOTAL_VOWELS}
                        ||
   $b->{MAX_ANY_VOWEL} <=>  $a->{MAX_ANY_VOWEL}
                        ||
        $b->{NUM_OF_A} <=>  $a->{NUM_OF_A}
                        ||
        $b->{NUM_OF_E} <=>  $a->{NUM_OF_E}
                        ||
        $b->{NUM_OF_I} <=>  $a->{NUM_OF_I}
                        ||
        $b->{NUM_OF_O} <=>  $a->{NUM_OF_O}
                        ||
        $b->{NUM_OF_U} <=>  $a->{NUM_OF_U}
                        ||
        $b->{NUM_OF_Y} <=>  $a->{NUM_OF_Y}
                        ||
        $a->{DICTFOLD} cmp  $b->{DICTFOLD};
                        ||
           $a->{RECNO} <=>  $b->{RECNO};
} @records;