foreach ( 1..3 ) {
  print "before: $_\n";
  while( <SEQUENZ> ) {
    # mach irgendwas
  }
  print "after: $_\n";
}