Select Code to Download

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

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

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

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

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

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

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

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

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