Select Code to Download

my @temp_array = map [ $_, join q(), /[aeiou]/g ], @words;
@temp_array = sort { $a->[1] cmp $b->[1] } @temp_array;
say for map $_->[0], @temp_array;

(["fanfare", "aae"], [apparate, "aaae"], etc.)