In the following loop:

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

What's with that "v" on the 2nd last line? Is that in your original code, or was it just a copy/paste glitch?