use Data::Dumper;
 # much later in the program
if ( $some_condition) {
  warn "DEBUG: ", Dumper ( $whatever );
}