I couldn't leave well enough alone; not satisfied with my previous response. Here is a more complete solution:

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
[download]

The substitution regex is pretty lame in this solution. And it's only designed to work with non-complex datastructures. A more robust solution would be a lot more careful to deal with things like commas, quotes, etc. And though it's probably easier to write your own hash-dumper than to implement a solution that strips away unwanted stuff from the output of Data::Dumper, I thought it was fun to tinker with this solution anyway.

Enjoy.