.

modules/bdcom.pm

@@ -191,7 +191,7 @@ async bdcom_purge => sub
 #        say Dumper @tmp;
     }
 
-    my @deleted_onu = map( join(" ", @$_), @{$onu_info{'inactive'}});
+    my @deleted_onu = map { sprintf("%2d %s", $_[0], $_[1]) } @{$onu_info{inactive}};
 
     await $t->cmd("exit");
 

modules/cdata.pm

@@ -164,7 +164,7 @@ async cdata_purge => sub
 
     await $t->cmd("exit");
 
-    my @deleted_onu = map( join(" ", @$_), @{$onu_info{'inactive'}});
+    my @deleted_onu = map { sprintf("%2d %s", $_[0], $_[1]) } @{$onu_info{inactive}};
 
     %onu_info = await cdata_get_onu_info($t, $tree);