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