Just a silly optimisation, really, and I doubt one where your code is losing out greatly, but:

print $_ , $i++ % 2 ? "\n" : "\t" for %h;
[download]

Is a bit faster than eaching through the hash.

Jasper