td => sub {
        my @out;
        my $q     = POE::Queue::Array->new;
        my @list = ( -52, -50 .. 50, 52, 0 );
        push @out,($_,$_[2]) for $q->dequeue_next;
        Compare(\@out,\@output) or die "@out" if DO_CHECK;
    }