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