use v5.12;
use warnings;
use Data::Dump qw/pp dd/;

{
    my $var = 42;

    sub foo {
        warn $var;
    }

    sub bar {
        eval 'warn $var';
    }

    foo();
    bar();
}

foo();
bar();