if there is some strange reason you cannot lexify your other usages of $a and $b, then you can consider using a named ($$)-prototyped sort subroutine, and perl will pass the sort variables in @_ instead of package variables.
sub mysort ($$) { $_[0]->{key} <=> $_[1]->{key} }
my @sorted = sort mysort @unsorted;