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