if($debug) {
   no warnings;
   print Dumper \$var;
} else {
   print $var;
}