use Digest::MD5 qw(md5); use Memoize; memoize('md5');