my $x = 6**6**6;  # Inf
my $y = 7**7**7;  # Inf

print "equal\n" if $x==$y;  # says "equal" even though mathematically they are not