# what is going on here? What am i dealing with?
        print " $token->[2]\n  ";     # how do i dereference this?

##</code><code>##

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

##</code><code>##

      
      my %hash = $token->[2];
        #    below wont work unless i feed it a hash
        #    my $key;
        #    foreach $key (keys %hash) {
        #    print "at $key we have $hash{$key}\n";
        #    }

##</code><code>##

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

##</code><code>##

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