Select Code to Download

use Thread::Queue;
use strict;
...
8, 9, 3
9, 9, 0
Can't use an undefined value as an ARRAY reference at C:\Dokumente und
+ Einstellungen\karl\Desktop\monks\undef.pl line 20.

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