foreach my $object (@object_list) {
  foreach my $attribute_name (grep $object->has_attrib($_), @attribute_list) {
    my $value = $object->get($attribute_name);
    # Do stuff here
  }
}