sub prepare_sort {
    return [ $_, tr/aeiou/z/cr, tr/aeiou//dr ];
}