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