%h;
$h{'Echo [Returns what is sent to server]'} = {service => ['7']};
$h{'Discard [A sink, like /dev/null]'} = {service => ['9']};

foreach $key(keys %h)
{foreach $service (@{$h{$key}{'service'}})
{if($khost=~/^$service/)
{chop($service) if ($service =~/\.$/);
print "\n[!] Port: [$start_port] Service: $key";
print O "[!] Port: [$start_port] Service: $key\n";
$start_port++}}}}} 

##</code><code>##

$sql = "select * from scanner.vulnerabilities";
	$sth = $dbh->prepare($sql);
	$sth->execute
		or die "SQL Error: $DBI::errstr\n";	
		
		my %ref;
		while (my $row = $sth ->fetchrow_hashref() ){
			$ref{ $row ->{'port'}} = $row ->{'Name'}
		}
		
		foreach $key(keys %ref)
			{foreach $port (@{$ref{$key}{'port'}})
			{if($khost=~/^$port/)
			{chop($port) if ($port =~/\.$/);
			print "\n[!] Port: [$start_port] Service: $key";
			print O "[!] Port: [$start_port] Service: $key\n";
			$start_port++}}}}}