$ perl   test-obj-tiny.pl 
Object f Scalar: baz=> Value of baz;
Object f Scalar: bar=> 44;
Object f :(Array component) header=This is H-1;
Object f :(Array component) header=This is H-2;
Object f : (Scalar accessed as array) baz value=Value of baz;
Object f (HashRef): myhash KEY:Dos; VALUE:Two; Extra args(Extra-arg1,26)
Object f (HashRef): myhash KEY:Tres; VALUE:Three; Extra args(Extra-arg1,27)
Object f (HashRef): myhash KEY:Uno; VALUE:One; Extra args(Extra-arg1,28)