diff --git a/contrib/bin/fusiondirectory-setup b/contrib/bin/fusiondirectory-setup
index 5a31012eb4e7146fcfbad317b949234bd3d78217..3dad1bddb214feb2bb03043435ad524cd8687a03 100644
--- a/contrib/bin/fusiondirectory-setup
+++ b/contrib/bin/fusiondirectory-setup
@@ -1597,7 +1597,7 @@ sub migrate_acls {
     if ($old_formats) {
       @nacls = sort @nacls;
       my $i = 0;
-      map { s/^[0-9]*:/$i:/; $i++ } @nacls; # Re-index acls
+      for (@nacls) { s/^[0-9]*:/$i:/; $i++ }; # Re-index acls
       my $result = $ldap->modify (
         $entry->dn,
         replace => {