iRule for tmm utilization

Can someone help with iRule which will increase tmm memory gradually. I tried with iRule which create loop, but that doesn't help. Intention is to test adaptive reaper feature in lab as had issue in prod. below iRule used only caused tmm to restart but adaptive reaping didn't get on.

 

when CLIENT_ACCEPTED {

 

array set ipAddress {}

 

set y 1000

 

for {set i 0} {$i < 1000000} {incr i} {

 

set static::ipAddress("[IP::client_addr]*[TCP::client_port]_$i") "The memory command gives the Tcl developer control of Tcl's memory debugging capabilities. The memory command has several suboptions, which are described below. It is only available"

 

if {$i == $y} {

 

after 2 set y [expr {$y + 100}]

 

} }