#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my @words = qw( fanfare apparate panacea parmesan albatross
                albacore false vermeil candelabra beans );

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

##</code><code>##

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

##</code><code>##

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