use strict;
use warnings;
use Data::Dumper;

my %hash = qw/Blue 1 Cow 3/;

sub PrettyDump {
	local $Data::Dumper::Terse = 1;
	local $Data::Dumper::Indent = 1;
	local $Data::Dumper::Quotekeys = 0;
	my $dump = Dumper(@_);
	$dump =~ s/[{}]\s+|[',]|=>|^\s+//mg;
	return $dump;
}

print PrettyDump(\%hash);

__OUTPUT__
Blue 1
COW 3