my $n = ...;   # max index
unshift @{$arr}, map {[@{$add[$_]}]} (0..$n),