use 5.14;
use Sort::Key qw(keysort);
my @sorted = keysort { s/[^aeiou]+//gr } @data;