Select Code to Download

use warnings;
use strict;
...
sub is { return refaddr $_[0] == refaddr $_[1] }

print is($x,$y) ? "True\n" : "False\n";  # True