use strict;

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

##</code><code>##

use strict;

$main::foo = 'hello';
@main::foo = 1..7;

print "${ *main::foo }\n";
print "${ $main::{ foo } }\n";
print "@{ *main::foo }\n";
print "@{ $main::{ foo } }\n";
__END__
hello
hello
1 2 3 4 5 6 7
1 2 3 4 5 6 7