if ( $some_condition ) {
  require Data::Dumper;
  warn "DEBUG: ", Data::Dumper::Dumper( $whatever );
}