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

my $cores = 4;

my @queue;

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