Re: PGA Golf, Round 1

Hole 6 can be improved by two chars:

sub hole6{sort{$&x$a=~'[aeiuo]'cmp$&x$b=~//}@_}

or, alternatively:

sub hole6{sort{$a!~/[aeiuo]/.$&cmp$b!~//.$&}@_}