And while we are at it how about a...

use Carp::Assert;

assert ($some_variable eq 'x' or $some_variable eq 'y') if DEBUG;
[download]

...before we enter this piece of code.

-Andrew.