http://www.perlmonks.org?node_id=201137


in reply to PGA Golf, Round 1 - Results

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!~//.$&}@_}