Avoid compress perl lib
Correct hast (list) & alert