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