{
  my $index = 0;
  sub myfetcher {
   my @a = (1,2);
   my @b = (3,4);
   my @c = (5,6);
   my @v = (\@a,\@b,\@c);
   $index++;
   # $index zurücksetzen und nichts zurückgeben (=leere liste)
   $index=0, return if $index > @v; # --- Edit: $index = 0 anstatt 1
   return $v[$index-1]->[0], $v[$index-1]->[1];
  }
}