in reply to MD5 Hash

It depends on what you need the md5sum for. A simple modification time + filename check might do it as well.
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});

In Section Seekers of Perl Wisdom