Select Code to Download

my @mp3s = ( 'a' .. 'z' );

...
my @queue;

push @queue, [ splice @mp3s, 0, $cores ] while @mp3s;

use List::MoreUtils qw (natatime);

...
while ( my @buff = $iterator->() ) {
    push @queue, \@buff;
}

$VAR1 = [
          [
...
          ]
        ];

use Parallel::ForkManager;
...