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