if ( ref $element ) {
    $element = sprintf "%s(0x%x)", ref $element, $element;
}