use Data::Dumper;
.
.
print Dumper $some_ref; # Dump single structure
.
.
# Dump multi structures - providing non-default names for each
print Data::Dumper->Dump [$ref1, $ref2],[qw/ref1 ref2/];