#!perl -lw
use strict;
use Data::Dumper;

my $hash={"A".."F"};
my $array=[$hash,'foo',$hash];

print $_ for
"Normal:",   Data::Dumper->new([$array],[qw(array)])->Dump(),
"Deepcopy:", Data::Dumper->new([$array],[qw(array)])->Deepcopy(1)->Dump(),
"Purity:",   Data::Dumper->new([$array],[qw(array)])->Purity(1)->Dump(),
"Terse:",    Data::Dumper->new([$array],[qw(array)])->Indent(1)->Terse(1)->Dump();