use Data::Dumper;
     print Dumper $token->[2];
# or w/o Data::Dumper
     print join(":", keys %{$token->[2]}), "\n";