Select Code to Download

my $var=func($param) || 0;

my ($x,$y);
$x=$x+1; # throws warning
$y+=1;   # no warning

# heres a functional way
my @no_undefs=map{$_ || 0} @has_undefs;
...
# might be slow or big lists though
sub undefs2zero {$_[$_]||=0 foreach 0..$#_} 
undefs2zero(@array);