$new{$_}=defined$old{$_}?$old{$_}:999 for@mips

##</code><code>##

$new{$_}=$old{$_}||999 for@mips

##</code><code>##

$new{$_}=$old{$_}//999 for@mips

##</code><code>##

for (@mips) {
    $new{$_} = defined($old{$_}) ? $old{$_} : 999;
}

##</code><code>##

%new=map{($_,defined$old{$_}?$old{$_}:999}@mips

##</code><code>##

%new=map{($_,$old{$_}||999)}@mips

##</code><code>##

%new=map{($_,$old{$_}//999)}@mips

##</code><code>##

%new = map {
    ($_ => defined($old{$_}) ? $old{$_} : 999)
} @mips;

##</code><code>##

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$