sub hole{sort{($a=~/([aeiou])/)[0]cmp($b=~//)[0]}@_} 123456789_123456789_123456789_123456789_12