diff --git a/swig/interfaces/Perl/Xerces-extra.pm b/swig/interfaces/Perl/Xerces-extra.pm
index 776e3f799da60a84bf1308977c719821e45e2df2..05b30f3e8b1d2af2eaf9a4ce399366e6e4258998 100644
--- a/swig/interfaces/Perl/Xerces-extra.pm
+++ b/swig/interfaces/Perl/Xerces-extra.pm
@@ -641,6 +641,17 @@ sub to_list {
   return @list;
 }
 
+package XML::Xerces::DOMStringList;
+# convert the StringList to a perl list
+sub to_list {
+  my $self = shift;
+  my @list;
+  for (my $i=0;$i<$self->getLength();$i++) {
+    push(@list,$self->item($i));
+  }
+  return @list;
+}
+
 package XML::Xerces::Attributes;
 sub to_hash {
   my $self = shift;