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

##</code><code>##

@list = @{$_} for grep defined, $listref_or_undef;
@list = split(",",$_) for grep defined, $splitme_if_defined;