Select Code to Download

use Data::Dumper;
my ($x,$y);
...
__END__
#Outputs
$VAR1=\'Foo';

use Data::Dump;
my ($x,$y);
$x=\$y;
$y=\$x;
print dump([$x,$y]);

#Dumper Output with Purity on
$VAR1 = [
...
    ${$RT_ARRAY->[1]} = $RT_ARRAY->[0];
    $RT_ARRAY
}