diff --git a/bin/account-manager.pl.in b/bin/account-manager.pl.in
index 6a63d90747ad5b5800f9f9fad025d1be6489a6c5..3a0a6e4a59673cd130456ef8c5e0dbf290a630ca 100755
--- a/bin/account-manager.pl.in
+++ b/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;
 
     }