perl find_devices new_elements