# other code to retrieve the documents into %contacts
foreach my $id ( keys %$contacts ) {
    my $entry = $contacts->{$id};
    my $xml = $entry->toStringC14N();
}