diff --git a/lib/NGCP/Cleanup.pm b/lib/NGCP/Cleanup.pm
index 2e2bd28..3ec0ab3 100644
--- a/lib/NGCP/Cleanup.pm
+++ b/lib/NGCP/Cleanup.pm
@@ -780,7 +780,7 @@ SQL
         my $sql_ok = $cleanup_mode eq "mysql" && $dbh->do($sql);
 
         if ($cleanup_mode eq "delete" || $sql_ok) {
-            foreach my $key (@{ $keys }) {
+            foreach my $key (keys %vals) {
                 # delete direct entry
                 $redis->del($key);