sub check_around{
    #my $self = shift;
    my ($doc,$switcher) = @_;


    if ($doc_block[0] eq $doc || $doc_block[1] eq $doc){
       return undef;
    }
    else {
       return $doc;
    }
}