sub f{
    print "in the f x is $x\n";
    $x="in the sub"
}

my $x="this is global";
f();
print "In the main, we see a modified $x\n";