diff --git a/fhem/FHEM/73_GardenaSmartBridge.pm b/fhem/FHEM/73_GardenaSmartBridge.pm
index cb34011e1..5e83d79bd 100644
--- a/fhem/FHEM/73_GardenaSmartBridge.pm
+++ b/fhem/FHEM/73_GardenaSmartBridge.pm
@@ -62,7 +62,6 @@ use strict;
 use warnings;
 use POSIX;
 use FHEM::Meta;
-use Data::Dumper;
 
 use HttpUtils;
 
diff --git a/fhem/FHEM/74_GardenaSmartDevice.pm b/fhem/FHEM/74_GardenaSmartDevice.pm
index 53ba1c552..5412ee398 100644
--- a/fhem/FHEM/74_GardenaSmartDevice.pm
+++ b/fhem/FHEM/74_GardenaSmartDevice.pm
@@ -63,6 +63,8 @@ use POSIX;
 use FHEM::Meta;
 use Time::Local;
 
+use Data::Dumper;    # only for debugging
+
 # try to use JSON::MaybeXS wrapper
 #   for chance of better performance + open code
 eval {
@@ -296,9 +298,8 @@ sub Set {
     elsif ( lc $cmd eq 'startpoint' ) {
         my $err;
 
-        ( $err, $payload, $abilities ) = SetPredefinedStartPoints( $hash, @$aArg );
+        ( $err, $payload, $abilities ) = SetPredefinedStartPoints( $hash, $aArg );
         return $err if ( defined($err) );
-
     }
     ### electronic_pressure_pump
     elsif ( lc $cmd eq 'pumptimer' ) {
@@ -831,10 +832,10 @@ sub Zulu2LocalString {
 }
 
 sub SetPredefinedStartPoints {
-    my $hash = shift;
-    my $a    = shift;
+    my $hash                                                = shift;
+    my $aArg                                                = shift;
 
-    my ( $startpoint_state, $startpoint_num, @morestartpoints ) = @$a;
+    my ($startpoint_state,$startpoint_num,@morestartpoints) = @{$aArg};
 
     my $name = $hash->{NAME};
     my $payload;