Well first, there is a problem with $a and $b in Perl

1. there is no $a and $b in my code.
2. it's not a problem, at least if you are not defining comparison function in same scope.