If you use Parallel::ForkManager you can write:

use Parallel::ForkManager;
my $pm = new Parallel::ForkManager(30);

foreach my $line (@array) {
    $pm->start and next;

    # process here

    $pm->finish;
}
  
$pm->wait_all_children;
[download]

All you have to do is decide on how many children you want :)

gav^