Как красиво печатать hash'ы в перле?

а чем тебе собственно print %hash не нравится?

может быть each спасет отца русской демократии..

Слышал где-то про Data::Dumper

1) print "$key => $value\n" while (($key,$value) = each %hash);

2) while (@Res = each %hash){
print "$Res[0] = $Res[1]\n"
}

3) print map {"$_ => $hash{$_}\n"} keys %hash;

4) {
my @temp = %hash;
print "@temp";
}

5) print "@{[%hash]}\n";

Это подойдет если хеш простой, т.е. не хеш хешей etc. А вообще

use Data::Dumper;

print Dumper(%hash);

распечатает черта в ступе