#! perl -slw
use strict;

use constant {
    TOTAL_JOBS => 130,
};

for my $job ( 1 .. TOTAL_JOBS ) {
        open my $in, '<', 'bigdata.' . $job  or die $!;
        my @localData = <$in>;
        close $in;

        ## do stuff with @localData
}

##</code><code>##

#! perl -slw
use strict;
use threads;

use constant {
    TOTAL_JOBS => 130,
    MAX_CONCURRENT => 40,
};

for my $job ( 1 .. TOTAL_JOBS ) {
    async {
        open my $in, '<', 'bigdata.' . $job  or die $!;
        my @localData = <$in>;
        close $in;

        ## do stuff with @localData
    };
    sleep 1 while threads->list( threads::running ) >= MAX_CONCURRENT;
    $_->join for threads->list( threads::joinable );
}
sleep 1 while threads->list( threads::running );
$_->join for threads->list( threads::joinable );