$dbh->do(
    "insert into Supersearch (ip, svr_name, port,
        service, banner) values (?, ?, ?, ?, ?)",
    undef,
    $i, $data{$i}{cname}, $j, $data{$i}{ports}{$j}{service},
    $data{$i}{ports}{$j}{banner})
        or die $dbh->errstr;