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

my $hash ={'A'..'F'};
my $array=[];
@$array=($hash,'foo',$hash,[$hash,'bar',$hash,$array]);

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(),
"PureDeep:", Data::Dumper->new([$array],[qw(array)])->Deepcopy(1)->Purity(1)->Dump();