@list=(@a,@default)[0..$#default];

##</code><code>##

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