my @array1 = map { 'foo' . $_ } 1 .. 99;

##</code><code>##

my @array1 = map { $_ ? 'foo' . $_ : 'foo' } 0 .. 99;