I would try something like:

my %ipH;
my $sth = spi_query("SELECT * FROM data");
while (defined ($row = spi_fetchrow($sth))) { 
  delete fetched or hashed;
}
[download]

but it's not tested.