diff --git a/fhem/contrib/betateilchen/55_weco.pm b/fhem/contrib/betateilchen/55_weco.pm
index 81ab9ecd0..25302134d 100644
--- a/fhem/contrib/betateilchen/55_weco.pm
+++ b/fhem/contrib/betateilchen/55_weco.pm
@@ -1,4 +1,4 @@
-# $Id: 55_weco.pm 10558 2016-01-17 14:17:58Z betateilchen $
+# $Id$
 ####################################################################################################
 #
 #	55_weco.pm
@@ -93,7 +93,7 @@ sub weco_send($) {
 
 	my ($data, $d, $r, $o);
 	my $a = $attr{$name};
-	while ( my ($key, $value) = each($a) ) {
+    while ( my ($key, $value) = each(%{$a}) ) {
 		next if substr($key,0,4) ne 'weco';
 		next if substr($key,4,1) ~~ ["I"];
 		$key = substr($key,4,length($key)-4);