Select Code to Download

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

#!/usr/bin/perl

...
  sort { $a->[0] cmp $b->[0] } # alphabetical sort
  map  [ $_, tr/aeiou/z/cr, tr/aeiou//dr ],
    @words;