use Data::Dumper;
$Data::Dumper::blah = 0; # Set defaults
$Data::Dumper::fred = 'xyz';
...
if ($i_am_debugging_this_bit)
{
    local $Data::Dumper::blah = 1; # Override these for a bit
    local $Data::Dumper::fred = 'nerd';
    ...
 }