Another low hanging fruit observation. I didn't want to add another update to my already too-updated post, so I posted a new one. All the () around your conditions are unnecessary. For example, you can change:

    while ( @combo = $next() ) {
[download]

To:

    while @combo = $next() {
[download]

(Of course, this ignores the changes I made to the combo sub in my previous post. To take that into account, you would change it to:

    for combo() -> $combo {
[download]

Or something like that.)