sub p_produce { my ($consumer, $start, $count) = @_; for my $i ($start..$start+$count) { $consumer->($i); }; }; { my $odd; sub p_two_columns { # aieeee - need to maintain state $odd = ($odd + 1)%2; }; };