my $n = 534587;
print "even\n" if($n % 2 == 0);    # modulo operator of possibly a float or possibly an integer (*)

##</code><code>##

use integer;
my $n = 534587;
print "even\n" if($n & 1 == 0);    # checking LSB with Bitwise And on an integer