use constant DEBUG => 0;
use Data::Dumper;

# ...

warn Dumper($myvar) if DEBUG;