diff --git a/Shorewall/Perl/Shorewall/Accounting.pm b/Shorewall/Perl/Shorewall/Accounting.pm
index 3197bd06c..7327e0f8c 100644
--- a/Shorewall/Perl/Shorewall/Accounting.pm
+++ b/Shorewall/Perl/Shorewall/Accounting.pm
@@ -234,8 +234,7 @@ sub process_accounting_rule1( $$$$$$$$$$$ ) {
 	} elsif ( $action =~ /^NFACCT\((.+)\)$/ ) {
 	    require_capability 'NFACCT_MATCH', 'The NFACCT action', 's';
 	    $target = '';
-	    my @objects = split_nfacct_list $1;
-	    for ( @objects ) {
+	    for ( my @objects = split_nfacct_list $1 ) {
 	       if ( $_ =~ /^([\w%&@~]+)(!)?$/ ) {
 		   if ( $2 ) {
 		       $prerule .= "-m nfacct --nfacct-name $1 ";