Since no one's said it yet, I'll mention that $a and $b aren't usually used as variable names in Perl, as they are special variables inside a sort block.

And, as other people have mentioned, this code smells badly. Very badly.