Line 15 of example contains: my %attribs = odm_attributes(${dev{'devname'}}; There is a missing right curly bracket, the line should look like: my %attribs = odm_attributes(${dev{'devname'}}); But when fixed like this, perl says that it can't modify exit in scala assignment. Any idea?

And here is a version that works in my environment. I simply removed the square brackets on lines 17, 22 and 23. I also modified lines 5 and 12 to ask only current devices (C). I still have a warning that reports an uninitialized value in concatenation (line 8) and an undefined subroutine &main::odm_classes on line 12. --- SOURCE --- use AIX::ODM; my %odm = odm_dump('C'); while ( ($ndx1, $lev2) = each %odm ) { while ( ($ndx2, $val) = each %$lev2 ) { print "odm{${ndx1}}{${ndx2}} = ${odm{${ndx1}}{${ndx2}}}\n"; } } my %dev = odm_classes('C'); foreach ${devname} ( keys %dev ) { print "dev{${devname}} = ${dev{${devname}}}\n"; } my %attribs = odm_attributes($dev{'devname'}); foreach ${attrname} ( keys %attribs ) { print "attribs{${attrname}} = ${attribs{${attrname}}}\n"; } my ${devclass} = odm_class('C|P',$dev{'devname'}); my ${devsubcl} = odm_subclass('C|P',$dev{'devname'});