sub f{ grep{s/.//}sort map{/[aeiou]/;"$&$_"}@_ }