#!/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