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