sub doIt {
  $_[0] = $_[1];
}

doIt my $num => 4143;