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