I hope a few general remarks are welcome.

I would suggest you to use use strict; and use warnings;.

And please don't use $a and $b, the are even with use strict; not under the strict conditions, because there are used by sort.

Edit: I should renew the page before answering. Grandfather was faster and he did better.