$foo="foo";
$bar="f";
print ${$bar."oo"}, "\n";