Select Code to Download

#!/usr/bin/perl
use warnings;
...
        sort { $a->[1] cmp $b->[1] || $a->[0] cmp $b->[0]}
        map [ $_, join q(), /[aeiou]/g ],
        @words;

$a->[1] cmp $b->[1]

$a->[0] cmp $b->[0]