my @class_component = grep /^class_component_/ keys %$self ;