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;
[download]