sub hole{map{$_->[0]}sort{$a->[1]cmp$b->[1]}map{[$_,m/[aeiou]/g]}@_} # 58 sub hole{sort{($a=~/([aeiuo])/)[0]cmp($b=~/([aeiou])/)[0]}@_} # 51 sub hole{sort{($a=~($v='([aeiou])'))[0]cmp($b=~$v)[0]}@_} # 47 sub hole{map{substr$_,1}sort map{/[aeiou]/;$&.$_}@_} # 42 sub hole{map/.(.+)/,sort map/[aeiou]/&&$&.$_,@_} # 38