fix items count on removal

bin/account-manager.pl.in

@@ -135,7 +135,7 @@ sub list_accounts {
         foreach my $account (@$accounts) {
             $account->delete() or die "failed to delete test account\n";
         }
-        printf "%d accounts removed\n", @$accounts;
+        printf "%d accounts removed\n", scalar @$accounts;
 
         die "failed to update simpleSAMLphp configuration file\n"
             unless IdPAccountManager::Tools::update_ssp_authsources(
@@ -258,7 +258,7 @@ sub list_tokens {
         foreach my $token (@$tokens) {
             $token->delete() or die "failed to delete authentication token\n";
         }
-        printf "%d tokens removed\n", @$tokens;
+        printf "%d tokens removed\n", scalar @$tokens;
 
     }