use List::MoreUtils qw (natatime);

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

my $cores = 4;

my @queue;

my $iterator = natatime $cores, @mp3s;

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