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

##</code><code>##

unless (exists $token{$array_ref->[0]}) {