sub bad {
    $_[0]++;
}
bad(1);