#!/usr/bin/perl

use warnings;
use strict;
use feature qw{ say };

my @words = qw( xaxexix babebib xaxexi babebibb baebbib );

sub prepare_sort {
    my ( $vowels, $positions ) = ( '', '' );

    while (/([aeiou])/g) {
        $vowels .= $1;
        $positions .= sprintf '%03d', pos;
    }

    return [ $_, $positions, $vowels ];
}

say for map $_->[0],
  sort { $a->[2] cmp $b->[2] } # vowels sort
  sort { $a->[1] cmp $b->[1] } # positional sort
  sort { $a->[0] cmp $b->[0] } # alphabetical sort
  map prepare_sort(), @words;