foreach $symname (sort keys %main::) { local *sym = $main::{$symname}; if (defined $sym) { print "\$$symname is defined, and value is $$symname\n"; } if (defined @sym) { print "\@$symname is defined, and value is @$symname\n"; } if (defined %sym) { print "\%$symname is defined, and value is %$symname\n"; } }