unless (grep { $array_ref->[0] eq $_ } keys %token) {