http://qs321.pair.com?node_id=392294


in reply to "if" Considered Harmful in OO programming

Just a nit:

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

is better as:

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