foreach my $type ( @{$rbl_list{$omr}{blackholes} })
{
$blackholes->array ("positive_listings",
$type);v }
}