sub foo { 
    if (1) {
        $x = 2;
    }
    print $x;
}