in reply to (jeffa) 4Re: Anyone use "xor" in conditionals?
in thread Anyone use "xor" in conditionals?

Or Tie::FlipFlop: 
use Tie::FlipFlop;
tie my $flipflop => 'Tie::FlipFlop', qw /black white/;
print $flipflop;  # black
print $flipflop;  # white
print $flipflop;  # black
print $flipflop;  # white

[download]

Abigail

In Section Seekers of Perl Wisdom