Select Code to Download

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

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

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

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

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