Select Code to Download

use strict;
use warnings;
...
    $_->paste (last_child => $address) for @sorted;
    $address->print ();
  }

<data>
    <ignore>
...
    <ref refid="e4"/>
  </address>
</data>