local $a=5;
&func();
sub func{
     print $a;
     $a=10;
     print $a;
}
print $a;

Output:
5
10
10