sub add_ten {
  $_[0] += 10;
}

$x = 20;
add_ten($x);
print $x;  # 30