diff --git a/lib/NGCP/Cleanup.pm b/lib/NGCP/Cleanup.pm
index 3416987..2682618 100644
--- a/lib/NGCP/Cleanup.pm
+++ b/lib/NGCP/Cleanup.pm
@@ -744,7 +744,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);