sub incr {
  $_[0]++;
}
my $n = 1;
incr($n); # good
incr(1);  # bad