Select Code to Download

#!/path/to/perl
my $X = \$X; 
...
        printf STDOUT "ah, good, they are observed to differ\n"; 
}
# end

#!/path/to/perl
my $X = \$X; 
...
                \$X, \$Y, \$X - \$Y;
}
# end

all is quiet and peaceful, 
100231cc0 and 100231ce0 are recognized to differ by ffffffffffffffe0

disturbing declaration of equality! 
Refs: SCALAR(0x800000010002a9b0)         SCALAR(0x800000010002a9d0) 
Vals: 800000010002a9f0   800000010002aa30 
SOps: sum 200055000      dif 0 
incs: 800000010002a9f0   +512=800000010002a800   +1024=800000010002b00
+0