# 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";