my @checked = map { 
    print ref($_) ? Dumper($_) : $_ ;
    $_->{class} ne 'DT' ? 1 :
             ( defined($_->{mid}) && grep ( /\w+/ , @{$_->{texts}}||() ) ? 1 : 0 )
    } @pages;