use strict;
use warnings;

my $x = 2 ** 55;
my $y = $x + 1;

if($x == $y) {print "wow\n"}
else {print "as expected\n"}