#!/usr/bin/perl
 
use strict;
use warnings;

sub dump_ref
{
	use Data::Dumper;
	$Data::Dumper::Terse = 1;
	$Data::Dumper::Indent = ((ref $_[0]) =~ /ARRAY/i)?0:1;
	$Data::Dumper::Sortkeys = sub{no warnings; return [ sort{$a<=>$b || $a cmp $b} keys %{$_[0]} ]; use warnings;};
	$_[1] = "Var" if(!defined $_[1]);
	print "$_[1] = \n";
	print Dumper($_[0]);
	print "\n";
}