my @defaults = qw/one two three four five/;
my @a = qw/un deux trois/;

$a[$_] ||= $defaults[$_] for (0 .. $#defaults);

print "@a\n";
# prints "un deux trois four five"