diff --git a/Shorewall-perl/Shorewall/Actions.pm b/Shorewall-perl/Shorewall/Actions.pm
index c8c937809..25abb7c7b 100644
--- a/Shorewall-perl/Shorewall/Actions.pm
+++ b/Shorewall-perl/Shorewall/Actions.pm
@@ -593,8 +593,8 @@ sub process_actions3 () {
 
 	my $set   = $tag[0];
 
-	for my $index ( 1..2 ) {
-	    fatal_error "Max connections and interval in Limit rules must be numeric" unless $tag[$index] =~ /^\d+$/
+	for ( @tag[1,2] ) {
+	    fatal_error "Max connections and interval in Limit rules must be numeric" unless /^\d+$/
 	}
 
 	my $count = $tag[1] + 1;