two little more things here, don't seed rand (as it is dont already on current versions of perl and redoing it makes it less random) and try not avoind $1 .. $9 and $a .. $b as normal variables they are used by sort and regex.

-Waswas