Mad_guy

So, recently for practice, I decided to create an MD5 cracker in Perl. Call it a brute-forcer if you will, I don't particularly care as long as the message gets across as to what it does.
It works well, it creates hash tables and cracks hashes using them (any half-way decent Perl coder should be able to figure out how it works strictly by source code.)

A couple of friends have given me code suggestions, and so far it works well.
I've used a little reg exp knowledge to make sure the hash the user wants to be cracked is valid MD5, IE: It only has hexadecimal characters, and it's approximately 32 characters in length.

The source code can be found at this URL, a download of the cracker, that comes with a dictionary file and a hash file with 20 hashes, can be found here.
Please, give me suggestions on how to make my code better.

If you see any code bugs, please be sure to post them here.

I'm just glad I made it save system resources by not cracking the same hash twice and making it not even try to crack a hash if it isn't valid.