in reply to random negative toggle function

How about Abigail-II's Tie::FlipFlop? 
use Tie::FlipFlop;

tie my $flipflop => Tie::FlipFlop => -1,1;
print $flipflop for 1..10;

[download]
These days, i like to search the CPAN before i add YAUM (yet another utility method) to my YAOASL (yet another obscure and specialized library). The CPAN has become my utility library.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom