@list=map {$_>$#a ? $default[$_] : $a[$_] } 0..$#default;