our $variable = 15;

{
 my $variable = 33;
 sub one {
  print "in one(): \$variable = $variable\n";
 }
 sub two {
  print "in two(): \$variable = $variable\n";
 }
}

one();
two();

$variable = 99;

one();
two();