in reply to PGA Golf, Round 1
This is really ugly and much too long, but whatever:
sub hole{$r='([aeiou])';sort{($a=~$r)[0]cmp($b=~$r)[0]}@_} 123456789_123456789_123456789_123456789_12345678 [download]