use strict;

$main::foobarbaz = 3;
print "$_\n", for sort keys %main::;
__END__
^R
^X
"
$
+
-
/
0
<none>::
@
ARGV
BEGIN
CORE::
Carp::
DATA
.
.
.
foobarbaz
.
.
.