use strict;
$MyModule::x = 3;

# ...
sub critical {
  my $w = 50;
  # my $x = 100;            # oops: commented out by mistake
  # my $y = 200;
  my $y = 300;
  frobnicate( $w, $x, $y ); # won't compile
}