$sth->execute($i, $data{$i}{cname}, $j, $data{$i}{ports}{$j}{service}, $data{$i}{ports}{$j}{banner}) or die "Content-type: text/plain\n\n $DBI::errstr";