#!/usr/bin/perl
use Data::Dumper;

@in=qw( ich du er sie es wir ihr sie sonstwas);


$\="\t";
print;
for (@in,@in) {
	print;
	print "1: $_" if /wir/ .. /sie/;
	print "2: $_" if ($_ eq "wir") .. ($_ eq "sie");
	print "3: $_" if episode ( ($_ eq "wir") , ($_ eq "sie") , "plural3" );
	print "4: $_" if episode ( scalar(/wir/) , scalar(/sie/), "plural4" );
#	print "5: $_" if episode ( /wir/ , /sie/, "plural5" );
	print "\n";
}


{ my %flipflop; 
  sub episode ($$$) {
	  my ($start,$end,$label)=@_;
#	  print Dumper \@_ if @_ != 3;

	  $flipflop{$label}=1 if $start;
	  my $return=$flipflop{$label};
	  $flipflop{$label}=0 if $end;

	  return $return;
  }
}

__END__

	ich	
	du	
	er	
	sie	
	es	
	wir	1: wir	2: wir	3: wir	4: wir	
	ihr	1: ihr	2: ihr	3: ihr	4: ihr	
	sie	1: sie	2: sie	3: sie	4: sie	
	sonstwas	
	ich	
	du	
	er	
	sie	
	es	
	wir	1: wir	2: wir	3: wir	4: wir	
	ihr	1: ihr	2: ihr	3: ihr	4: ihr	
	sie	1: sie	2: sie	3: sie	4: sie	
	sonstwas