# named printing is still not DRY, but much better than:
# print Data::Dumper->Dump( [$ref], ['*ref'] );
print '$ref = ', pp($ref), "\n";

##</code><code>##

use Data::Dumper qw/Dumper/;
print '$ref = ', Dumper($ref), "\n";