$ perl -Mstrict -wle '
> our $foo = q{foo};
> our $bar = q{f};
> print do {no strict q{refs}; ${$bar . q{oo}} };'
foo
$