my $hash = $token->[2];
      foreach my $key (keys %$hash) {
          printf "at %s we have %s\n", $key, $hash->{$key};
      }