D'oh! Reading your comment reminded me of the solution--using "our"--that I had found earlier but misremembered as using "local". Thanks much.

# Works.
my $a = 'whatever'; # just happens to be in scope of below sort block
@arr2 = sort { our $a; $a <=> $b } @arr1;
print join(' ', @arr2), "\n";
[download]