for my $i ( 0 .. $#{$objlist} ) {
    logger->debug( "$i ". $objlist->[$i]->modulname );
} # for