Actually, it isn't that difficult. For example the code here will consume from the NP Pool until it faults
for ($i=1; $i<=7000; $i++) {
for ($k=1; $k<=1000; $k++) {
$hash->{$k}->{"a $i b $j"}="$j fish $i";
}
print "$j $i $k\n";
}
I just want to see if there is a way to do it directly instead of indirectly