#Dumper Output with Purity on
$VAR1 = [
          \\do{my $o},
          do{my $o}
        ];
${${$VAR1->[0]}} = $VAR1->[0];
$VAR1->[1] = ${$VAR1->[0]};

#Standard BFDump output
do {
    my $RT_ARRAY = [
                     \do { my $t },
                     \do { my $t }
                   ];
    ${$RT_ARRAY->[0]} = $RT_ARRAY->[1];
    ${$RT_ARRAY->[1]} = $RT_ARRAY->[0];
    $RT_ARRAY
}