#!/usr/bin/perl -w

use strict;

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

my %hash;
foreach my $word (@words) {
    my $vowels = lc $word;
    $vowels =~ s/[^aeiou]//g;              # EXAMPLE B
    my @array = ($word);
    push @array, @{$hash{$vowels}} if defined $hash{$vowels};
    $hash{$vowels} = \@array;
}

my @sorted;
foreach my $vowels (sort keys %hash)  {
    push @sorted, @{$hash{$vowels}};       # EXAMPLE A
}

print " INPUT: @words\n";
print "SORTED: @sorted\n";

##</code><code>##

    push @sorted, sort @{$hash{$vowels}};

##</code><code>##

    $vowels =~ s/[^aeiou]/z/g;