Wow :)! Neat "o" :). I especially like the line that says:

delete $any($doubt);
[download]

It is an example of a short perl code that I wish would work in real life situations :), hahahaha :). Anyway, I think it is a very poetic perl code :), good job, it's very creative :).