$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 ->{'Name'} }{'port'} = [ $row ->{'port'} ];
}