$struct = [{foo => 1, bar => 2}, "FOO", "BAR"];


   $struct->{foo};  # same as $struct->[1], i.e. "FOO"
   $struct->{bar};  # same as $struct->[2], i.e. "BAR"

   keys %$struct;   # will return ("foo", "bar") in some order
   values %$struct; # will return ("FOO", "BAR") in same some order

   while (my($k,$v) = each %$struct) {
       print "$k => $v\n";
   }