Less code is not necessarily better code

True, but OP's %voices looks like it's generated from something like {map {$_ => $n++} @list_of_voices} which (in my eyes) is unnecessary, especially as he uses List::Util, already.