use strict;
use vars '$x';
$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 ); # that's the global $x in there!
}