make code work on perl 5.12. keys() takes a hash, not an expr
Release v0.005