$ perl -e '$a = [undef, undef, 3]; map {$_++} @$a; print "@$a"'
1 1 4