my $bar = 2;

{
    print "Hi \$bar ($bar), good to see you.\n";
}