# Foo.pm
my $var = 1;
sub a {
    eval '$var' # sees an undefined value when later called
}
sub b {
    $var;
    eval '$var'; # sees 1 because b() has captured $var
}