sub hole{$r='([aeiou])';sort{($a=~$r)[0]cmp($b=~$r)[0]}@_} 123456789_123456789_123456789_123456789_12345678