$x = 4;
warn $x;
blah($x);
warn $x;
sub blah {
  $_[0] += 3;
}