$globref = \do{ local *GLOB} };
{local *X = $globref; *X = sub {"bar"}};