sub setifdef { $_[0] = $_[1] if defined($_[1]) }
setifdef $foo, $bar;