$foo = 'foo';;
$bar = 'f';;
print ${ $bar . 'oo' };;
foo

{ 
    my $foo = 'foo'; 
    my $bar = 'f'; 
    print ${ $bar . 'oo' }; 
}
foo