Select Code to Download

my $x = 4;
my $xx = sub{\@_}->(\$x, \$x);
...
print "******** YAML ********\n";
print YAML::Dump $xx, $yy;
print "\n";

******** Data::XDumper ********
        [
...
- &1 !perl/ref:
  =: 4
- *1