If you remember that %main:: is a hash of globs, then a simple derefence works, doesn't worry strict and allows you to get all types of vars. But you may only want scalars, and not a scalar version of almost everything.

for (keys %main::) {
    $val = ${ *{ $main::{$_} }{SCALAR} };
}
[download]