--- majordomo.pl.orig	2013-05-09 15:39:12.000000000 +0200
+++ majordomo.pl	2013-05-09 15:35:37.000000000 +0200
@@ -95,14 +95,14 @@
     local($_) = shift;
     1 while s/\([^\(\)]*\)//g; 		# strip comments
     1 while s/"[^"]*"\s//g;		# strip comments"
-    split(/,/);				# split into parts
-    foreach (@_) {
+    my @x = split(/,/);                                # split into parts
+    foreach (@x) {
 	1 while s/.*<(.*)>.*/$1/;
 	s/^\s+//;
 	s/\s+$//;
     }
 
-    @_;
+    @x;
 }
 
 # Check to see if a list is valid.  If it is, return the validated list