$ perl -le '
> $foo = q{foo};
> $bar = q{f};
> print ${$bar . q{oo}};'
foo
$