Hmm yes, $a and $b live - if needed - in the current package and not main::

$ perl -E'package tst; sort{$a le $b} 1..100; say exists $tst::{a}; us
+e strict; say $a;'        
1
[download]