... print " ----------------- " . $ref->{attribute} . "\n"; ...