while ( @rv = $sth->fetchrow_array() ) {...}

sub myfetcher
    {
    my ($self,@a,@b,@c,@v);

    ($self) = @_;

    @a = (1,2);
    @b = (3,4);
    @c = (5,6);

    @v = (\@a,\@b,\@c);

    foreach ( @v )
        {
        return $_->[0], $_->[1];
        }
    }

{
  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];
  }
}

return \@array1, \@array2, \@arry3;