Ahh, wonderful, thank you! That works just as you said. I do have two questions about your code though...

What does the "qw" do in the statement

for (qw(years months weeks days))
[download]

When I read that entire statement to myself...I read it as "For (qw?(Every key in the hash)...print "The value of the key followed by the key" if "That key value is true."

Does that sound right to you? I'm not trying to be a pain, I just want to understand everything in that code.