Select Code to Download

  <DB> p "@_"
  ARRAY(0x38234) Big::Nested::Mess=HASH(0x382437)
  <DB> x keys %{ $_[1] }
  ...just the keys, so you can see what to look for...

sub p {
  my $x = shift;
...
    return $x;
  }
}