You can do a for ( my($k,$v) = each %$obj ) { ... } to give you a basic idea of what's inside the hash, but I personally use Data::Dumper in these types of situations as it will automatically recurse multi-dimensional arrays, hashes, etc.

use Data::Dumper;

print Data::Dumper->Dump([ $obj ],[qw( obj )]);
[download]

    --k.