my %keys;
$key{$_} = s/[^aeiou]+//gr for @data;
my @sorted = sort { $key{$a} cmp $key{$b} } @data;