while ( my $item = $queue->dequeue ) {
    my ( $y, @colors ) = @$item;
    say qq($_, $y, $colors[$_]) for 0 .. $#colors;
}