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