use strict;
use warnings;

our ($x, $y) = ('global X', 'global Y');
example();

sub example {
  local $x;
  my $y;
  $x = 'changed local';
  $y = 'changed my';
  example2();
}

sub example2 {
  print "X: $x, Y: $y\n";
}