$ perl -E'package tst; sort{$a le $b} 1..100; say exists $tst::{a}; use strict; say $a;'        
1