use Digest'MD5'/^/';print 0|md5_hex($_)=~s/e/x/r,$/for 1..100