#!/usr/bin/perl

use strict;
use warnings;
use Benchmark ':all';

my $n = 19229024324098347987343;
$n += 0.0;

print 'AND: '.(($n&1) ? 'ungerade' : 'gerade')."\n";
print 'MODULO: '.(($n%2) ? 'ungerade' : 'gerade')."\n";


    
sub and_test { return($_[0]&1) }
sub modulo_test { return($_[0]%2) }

cmpthese (2000000, { and_test => sub { &and_test($n) }, modulo_test => sub { &modulo_test($n) } } );